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 vote160 views1 answer
Write listbox to text file vb.net
VBA
1 vote133 views1 answer
How to do error handling in access vba
VBA
5 votes93 views1 answer
Vlookup vba
VBA
11 votes282 views1 answer
Excel vba How to URL encode a string
VBA
0 vote133 views1 answer
Vba argument is set
VBA
0 vote95 views1 answer
Excel autofilter vba
VBA
4 votes149 views2 answers
Vba array length
VBA
8 votes197 views1 answer
Excel vba make word
VBA
22 votes289 views1 answer
Xl vba check for folder
VBA
0 vote146 views2 answers
How to concatenate more than 40 lines in vba
VBA