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 vote253 views1 answer
Reference to a non-shared member requires an object reference
VBA
4 votes230 views2 answers
Vba array length
VBA
0 vote239 views1 answer
Excel vba formatconditions positive
VBA
4 votes232 views1 answer
Excel vba check cell not empty
VBA
8 votes247 views1 answer
Excel vba make integer
VBA
0 vote255 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote240 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote226 views1 answer
Vba collection key list
VBA
1 vote237 views1 answer
Excel date to unix timestamp
VBA
0 vote231 views1 answer
Label de tableau dans des label.text en VBA
VBA