Excel last used row

Dim rLastCell As Range

Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), _
    LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByColumns, _
    SearchDirection:=xlPrevious, MatchCase:=False)

MsgBox ("The last used column is: " & rLastCell.Column)
MsgBox ("The last used row is: " & rLastCell.Row)

Source: stackoverflow.com

Similar codes

8 votes279 views1 answer
Excel vba make a short integer from two bytes
VBA
31 votes421 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote166 views1 answer
Vbnet make a string to unicode converter
VBA
1 vote186 views1 answer
Excel vba unload userform
VBA
4 votes190 views2 answers
Vba create folder if not exist
VBA
0 vote181 views1 answer
Check range is in another range vba
VBA
11 votes403 views1 answer
Excel vba How to URL encode a string
VBA
0 vote240 views1 answer
Vba excel do not recalculate before save
VBA
0 vote195 views1 answer
Vba array of integers
VBA
1 vote185 views1 answer
Vba refresh pivot table
VBA