Esse aqui vai copiar o conteúdo da célula C1 para a última célula usada na coluna "C" na Sheet1. Em seguida colará na primeira linha após a última entrada da coluna A na Plan2:
Sub CopyPasteToOtherSheet()
Worksheets("Sheet1").Range(Range("C1"), Range("C65536").End(xlUp)).Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End Sub
Tags: Excel, VBA, copy, paste,
