With Range("A1").SpecialCells(xlLastCell) MaxRow = .Row MaxCol = .Column End With
MaxRow = .Row MaxCol = .Column