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

8 votes332 views1 answer
Excel vba make word from bytes
VBA
5 votes177 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote166 views1 answer
Remove first character from string vb
VBA
0 vote165 views1 answer
Vbnet round to nearnest thousand
VBA
0 vote161 views1 answer
Vba full date format
VBA
0 vote155 views1 answer
Vbs exec hidden
VBA
0 vote169 views1 answer
Vba variable number of arguments
VBA
0 vote155 views1 answer
Excel vba formatconditions positive
VBA
0 vote145 views1 answer
Remove frist letter from string vbnet
VBA
0 vote154 views1 answer
Do while not vb.net
VBA