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
With wsCopy .Range(.Cells(1, 1), .Cells(lCopyLastRow, lastCol)).Copy wsDest.Range("A" & lDestLastRow) End With