Hay una forma mas simple.
Solo te ubicas en una celda del rango (lo comun seria la primera) y usas el metodo End con el parametro Direccion correcto. Por ejemplo, si los valores comienzan en la primer fila, podes usar:
Cita: dim UltimaFila as Integer
ultimaFila = Range("A1").End(xlDown).Row
y luego
Cita: Range("A" & Cstr(UltimaFila)).Copy