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

11 votes480 views1 answer
Excel vba How to URL encode a string
VBA
5 votes333 views1 answer
Excel vba how to unit test vba code
VBA
0 vote335 views1 answer
Vba first cell in range
VBA
0 vote368 views1 answer
Pivot data source not accepting table named range vba
VBA
3 votes357 views1 answer
Excel insert blank row for value change in column
VBA
0 vote415 views2 answers
Excel vba store array and write to sheet
VBA
4 votes311 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote326 views1 answer
Vba line feed
VBA
0 vote330 views1 answer
Excel vba disable keyboard input
VBA
0 vote432 views1 answer
Vba vbcrlf chr
VBA