Colar de cópia do Excel VBA após a última fila
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
Energetic Eland