Excel - ir a la última fila con datos en la hoja de excel

Apreciados todos, quiero preguntarles cómo logro decir en una macro que me copie x datos hasta que en la columna inmediatamente anterior no encuentre más datos.

Range("AJ2:AN2").Select
Selection.AutoFill Destination:=Range("AJ2:AN10")

quiero que el AN10 cambie a ANHasta el final de las líneas con datos

Muy buenas.
Suponiendo que la columna con datos la determine la columna "AI", podría servirte esto:

fila = Range("ai2").End(xlDown).Row
Range("AJ2:AN2").Select
Selection.AutoFill Destination:=Range("AJ2:AN" & fila)

un saludo. Juanjo.

Mil gracias Juanjo, es excelente. DIOS te bendiga.

La otra posibilidad es establecer un rango dinámico, suponiendo que querés copiar lo que está en la columna A, considerando las filas que hay en la columna B, creas un rango dinámico por ejemplo "mirango" con la siguiente fórmula:


Luego hacés el código con el rango dinámico:


Por si no has utilizado rangos dinámicos en Access 2003 se crean desde: Insertar > Nombre > Definir, en Access 2007 no recuerdo porque ya hace 3 años que no lo estoy utilizando, pero lo puede Googlear.
Saludos.
Damián Rodriguez.