Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Get the last row and last cell
Sub LastCell()
  Dim rngLast As Range
  Dim LastRow As Long, LastCol As Long
  
  Set rngLast = Range("A1").SpecialCells(xlCellTypeLastCell)
  LastRow = rngLast.Row
  LastCol = rngLast.Column
  MsgBox LastRow & " " & LastCol
End Sub