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 vote254 views1 answer
Group controls programmatically vb
VBA
0 vote247 views1 answer
Method showalldata of object _worksheet failed vba
VBA
-1 vote269 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote239 views1 answer
Excel vba open browser
VBA
0 vote226 views1 answer
Vba loop through table
VBA
0 vote218 views2 answers
Excel vba copy paste after last row
VBA
2 votes217 views1 answer
Vba uppercase first letter of each word
VBA
0 vote231 views1 answer
Create links in msgbox in vb
VBA
1 vote240 views1 answer
How to remove zeros in excel
VBA
1 vote232 views1 answer
Vbscript convert ascii code to character
VBA