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 vote156 views1 answer
Vba remove numbers from string
VBA
0 vote179 views1 answer
Excel vba open browser
VBA
1 vote158 views1 answer
Vba reverse string
VBA
0 vote169 views1 answer
Excel vba copy range with filter
VBA
4 votes159 views1 answer
Excel vba determine number of elements in an array
VBA
20 votes315 views1 answer
Excel vba recursive example factorial function
VBA
0 vote168 views2 answers
Vb.net include quotes in string
VBA
0 vote165 views1 answer
Freeze panes vba
VBA
1 vote159 views2 answers
Vba function return array
VBA
0 vote163 views1 answer
Vbscript abs
VBA