Excel VisualBasic Script

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