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

0 vote353 views1 answer
Excel vba urlmon
VBA
0 vote346 views1 answer
Excel vba disable screen update
VBA
3 votes360 views1 answer
Excel vba make long from two shorts
VBA
0 vote340 views2 answers
Excel vba copy paste after last row
VBA
0 vote327 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote331 views1 answer
Excel vba formatconditions positive
VBA
0 vote357 views2 answers
S yyyy-MM-dd em vb net
VBA
20 votes474 views1 answer
Excel vba recursive example factorial function
VBA
0 vote358 views1 answer
Excel vba protect shapes
VBA
0 vote332 views1 answer
How to set location and size of new from vb
VBA