Puedes probar cualquiera de estas dos formas, porque ambas hacen lo mismo, que es posicionarte en la primera fila vacía que encuentran, y que será donde vas a escribir los datos:
Código:
Sub Ejemplo_1()
'Nos situamos en A1
Range("A1").Select
'Bajamos hasta la última fila adyacente, que tenda datos
Selection.End(xlDown).Select
'Pasamos a la siguiente línea, que será una línea en blanco
ActiveCell.Offset(1, 0).Select
End Sub
Código:
Sub Ejemplo_2()
'Nos situamos en A1
Range("A1").Select
'Mientras la celda en cuestión no esté vacía, que
'vaya bajando una fila, hasta que se encuentre con una vacía
Do While Not IsEmpty(ActiveCell.Offset(0, 0))
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Salu2