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 vote138 views1 answer
Convert number to minutes in vba
VBA
0 vote126 views1 answer
Vbnet check if sting contians symbols
VBA
0 vote176 views1 answer
Excel vba add reference programmatically
VBA
0 vote130 views1 answer
Ribbon show/hide
VBA
0 vote124 views1 answer
Enter into cells data grid view
VBA
0 vote126 views2 answers
Excel vba close without saving
VBA
1 vote121 views1 answer
Excel vba to lower case
VBA
8 votes122 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote139 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote169 views1 answer
How to call gcd in vba
VBA