Sub rowCol() Set rngLast = Range("A1").SpecialCells(xlCellTypeLastCell) lLastRow = rngLast.Row lLastCol = rngLast.Column End Sub