Copy Data from Multiple sheets to single using macro / each sheet to be copies on next row

I have a workbook with 6 sheets and one master sheet. I am trying to use macro to update master sheet by copying from 6 sheets but when it copies from sheet 2 it always take the destination cell as fixed while I want it to paste it into next available row since data will be increasing over the time. Macro is below and you can see the range is fixed cell reference. Pls help.

Thanks

'
' Macro1 Macro
'

'

Application.Goto Reference:="Table5"
Selection.Copy
Sheets("Master Report").Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
Range("A8").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A152").Select
Application.Goto Reference:="Table1"
Application.CutCopyMode = False
Selection.Copy
Sheets("Master Report").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A332").Select
Application.Goto Reference:="Table2"
Application.CutCopyMode = False
Selection.Copy
Sheets("Master Report").Select
Range("A326").Select
Selection.End(xlDown).Select
Range("A332").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A392").Select
Application.Goto Reference:="Table3"
Application.CutCopyMode = False
Selection.Copy
Sheets("Master Report").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A932").Select
Application.Goto Reference:="Table4"
Application.CutCopyMode = False
Selection.Copy
Sheets("Master Report").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A1856").Select
Application.Goto Reference:="Table6"
Application.CutCopyMode = False
Selection.Copy
Sheets("Master Report").Select
ActiveSheet.Paste
Range("A1857").Select
Selection.End(xlDown).Select
Range("A4").Select
End Sub

Its hard to get it right since this is a recorded macro.

See if this helps

Please Login or Register  to view this content.

Thanks

Ps: use code tags around your code ( the # button)