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 vote226 views1 answer
Excel vba named range exists
VBA
1 vote207 views1 answer
Excel vba compare 2 rows
VBA
0 vote196 views1 answer
Excel vba disable screen update
VBA
-1 vote230 views1 answer
Vba sendkeys
VBA
1 vote202 views1 answer
How to do error handling in access vba
VBA
3 votes219 views1 answer
Vba double quote
VBA
0 vote217 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote204 views1 answer
Hello world vb.net
VBA
0 vote204 views1 answer
Excel vba address not absolute
VBA
0 vote222 views1 answer
Vbnet convert charatcer to binary
VBA