Tips

Instrucciones en VBA para Excel, para saber el número máximo de líneas y columnas de la Hoja activa:

Max_Lineas = Cells.SpecialCells(xlLastCell).Row

Max_Columnas = Cells.SpecialCells(xlLastCell).Column