Pasting data from one sheet to last blank row of another sheet (Macro)

[NewTOvba26]

I have 3 data files "Data1", "Data2", and "Data3". All 3 files are stored on desktop. I need help in pasting this data on Sheet1 of "Final Data" file one below another. Data in all 3 data files are not fixed and last row may very every time. This needs to be done very frequently and hence a macro coding for doing this will help a lot. I did a lot of research on google but was unable to find a working solution. I would be grateful is someone can help me get this done. Any help will be greatly appreciated.

 

[JLGWhiz]

Try this. It assumes all four workbooks are open at runtime.

Sub t()
Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet, sh4 As Worksheet
Set sh1 = Workbooks("Data1.xlsx").Sheets(1)
Set sh2 = Workbooks("Data2.xlsx").Sheets(1)
Set sh3 = Workbooks("Data3.xlsx").Sheets(1)
Set sh4 = Workbooks("Final Data.xlsx").Sheets(1)
sh1.UsedRange.Offset(1).Copy sh4.Cells(Rows.Count, 1).End(xlUp)(2)
sh2.UsedRange.Offset(1).Copy sh4.Cells(Rows.Count, 1).End(xlUp)(2)
sh3.UsedRange.Offset(1).Copy sh4.Cells(Rows.Count, 1).End(xlUp)(2)
End Sub

 

[NewTOvba26]

This is perfect. Thank you so much for your help Really appreciate it.

 

[JLGWhiz]

This is perfect. Thank you so much for your help Really appreciate it.

You're welcome,
regards, JLG