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

2 votes178 views1 answer
Vba file from path
VBA
0 vote193 views1 answer
Delete all controls in an area vb
VBA
1 vote181 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote175 views1 answer
Vbnet get file name from path
VBA
0 vote179 views1 answer
Vba first line of string
VBA
1 vote171 views1 answer
Excel vba hide zero values
VBA
0 vote196 views1 answer
Make your computer talk vbscript
VBA
0 vote172 views1 answer
Excel vba disable copy paste
VBA
0 vote192 views1 answer
Vbnet cycle through charaters in string
VBA
1 vote191 views1 answer
Vb.net get name by Cell Click
VBA