Get Last Row in Column

Beginner

Finds the last used row in a specific column of the active worksheet.

Sub GetLastRow()
  Dim lastRow As Long
  lastRow = Cells(Rows.Count, "A").End(xlUp).Row
  MsgBox "Last row in column A: " & lastRow
End Sub

RELATED MACROS IN DATA ANALYSIS

Finds the last used column in a specific row of the active worksheet.

Sub GetLastColumn()
  Dim lastCol As Long
  lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
 ...