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

1 vote228 views1 answer
Excel vba saveas force overwrite
VBA
0 vote219 views1 answer
How to set location and size of new from vb
VBA
0 vote244 views1 answer
Loop through lines in text file vb net
VBA
0 vote225 views1 answer
Dynamic array vba
VBA
8 votes254 views1 answer
Excel vba make integer
VBA
3 votes222 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote238 views1 answer
Vbs expand env var
VBA
4 votes223 views2 answers
Vba array length
VBA
0 vote235 views1 answer
Ribbon show/hide
VBA
0 vote267 views1 answer
Vba code for cutoff time
VBA