comunque per evitare errori è meglio utilizzare questo codice

codice:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select