Macro Excel Ayuda

[eposse]

perdona:

también puedes hacer lo siguiente (te funcionara para cualquier archivo en el que tengas datos en filas y/o columnas):

Sub macro()





Cells(1, 1).Copy Destination:=Range("A2:A16") ' se copia el contenido de A1 en el rango de destino



FinalRow = Cells(65536, 1).End(xlUp).Row

Range("A" & FinalRow + 5).Select
End Sub