Que tal,
este codigo te ayudara.
:::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::
Rem Primero debes definir una celda de inicio
Hoja1.Activate
Hoja1.Range("A2").Select
Rem luego creas el bucle while
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
:::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::
el valor Empty define si hay o no hay dato en la celda y mientras la celda lo tenga se desplazara 1 fila y 0 columnas; si quieres devolverte una fila, despues del Loop puedes agregar la siguiente linea
ActiveCell.Offset(-1, 0).Select
Es decir que la cantidad de filas para desplazarse esta definida por el primer subindice y las columnas por el segundo.
Espero que te sea util,
chao.
