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 vote213 views2 answers
Do until loop vba
VBA
0 vote221 views1 answer
Regex numeric digits
VBA
1 vote189 views1 answer
Vba compile error object required
VBA
0 vote146 views1 answer
Excel autofilter vba
VBA
0 vote184 views1 answer
Remove frist letter from string vbnet
VBA
0 vote201 views3 answers
Write to text file vb.net
VBA
0 vote214 views1 answer
Vba simple quote
VBA
0 vote202 views1 answer
Excel vba disable mouse click
VBA
0 vote204 views1 answer
Vb streamreader
VBA
3 votes208 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA