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 vote213 views1 answer
Vba parameter adodb null value
VBA
0 vote208 views1 answer
Vb window.minimize
VBA
3 votes222 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote230 views1 answer
Excel vba copy range with filter
VBA
-1 vote253 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote229 views1 answer
Ribbon show/hide
VBA
-1 vote214 views1 answer
Vba code to add new column in table
VBA
0 vote214 views1 answer
Excel vba current folder
VBA
3 votes228 views1 answer
Vba double quote
VBA
0 vote204 views1 answer
Excel vba populate array with cell values
VBA