Ranges

UsedRange

DOES NOT COUNT EMPTY COLUMNS AND ROWS

Used Rows

Sheets("sheetName").UsedRange.Rows.Count

Used Columns

Sheets("sheetName").UsedRange.Columns.Count

Last Row

'lastRow = index of the last non-blank cell in column A(1)Dim lastRow As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Last Column

'lastCol = index of the last non-blank cell in row 1Dim lastCol As LonglastCol = Cells(1, Columns.Count).End(xlToLeft).Column

[worksheet].Columns("H")

Page updated

Google Sites

Report abuse