Answered by : energetic-eland-on5z69h08kxb

Sub InsertIntoEnd() Dim last_row As Long last_row = Cells(Rows.Count, "A").End(xlUp).Row Range("F1").Copy Destination:=Cells(last_row + 1, "A")
End Sub

Source : https://www.mrexcel.com/board/threads/vba-paste-new-data-after-last-row.951096/ | Last Update : Tue, 03 Nov 20

Answered by : energetic-eland-on5z69h08kxb

With wsCopy .Range(.Cells(1, 1), .Cells(lCopyLastRow, lastCol)).Copy wsDest.Range("A" & lDestLastRow)
End With

Source : https://superuser.com/questions/1466255/excel-vba-copy-and-paste-to-different-workbook-at-end-of-existing-data | Last Update : Tue, 03 Nov 20