vba copy and fill down to the last row code example

Example 1: excel vba copy paste after last row

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

Example 2: excel vba copy paste after last row

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