Últimas celdas ocupadas

Última fila ocupada:

filalibre = Range("A1").End(xlDown).Offset(1, 0).Row

Sólo cuenta la columna 'A'

Última columna ocupada a la derecha:

columnalibre = Range("A1").End(xlToRight).Column

Sólo cuenta la fila '1'

Vía: No me acuerdo :-(