Situate en la primera celda no vacia. Ahora presiona CTRL+FLECHA_ABAJO, asi llegaras a la ultima fila llena, y, obviamente la siguiente es la primera vacia
RAnge("A1").End(xlDown).Offset(1,0).select
Con la grabadora de macros te hubieses ayudado
Abaham