Este código copiará todo o conteúdo da coluna C e o colará na primeira célula em branco após a última entrada na coluna A
Sub CopyAndPaste()Range(Range("C1"), Range("C65536").End(xlUp)).copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)End Sub
Tags: Excel, VBA, copy, paste,
