Excel - copiar y solo copiar

Hola A todoss , quiero crear una macros q solo me copie las n primeras celdas de una columna; por ejemplo esto copiaria las 7 primeras celdas de la columna A:
Sub Macro1
Range("A1:A7").Select
Selection.Copy
End Sub

pero como hago si ya no son 7 sino 5 o 12 o 50
intente con esto pero no pasa nada

Range("a1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Selection.Copy
Loop

Ayuda!!!!

Tengo poco tiempo, pero podes probar con un contador, si tengo tiempo veré otra alternativa, porque esta macro se volverá muy lenta en la medida que crezca el archivo… espero sea lo que necesites.

Sub Macro1()
contador = 0
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
contador = contador + 1
Loop

Range("A1:A" & contador).Select
Selection.Copy

Range("C1").Select
ActiveSheet.Paste
End Sub