Copie a última linha utilizada na coluna A Sheet1. E em seguida, cole na primeira linha vazia após a última entrada da coluna "A" Plan2.
Sub CopyRowPasteToNextSheet()
Worksheets("Sheet1").Range("A65536").End(xlUp).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End Sub
Tags: Excel, VBA, copy, paste,