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

5 votes357 views1 answer
Excel-vba get integer high byte
VBA
3 votes299 views1 answer
Excel vba read registry key value
VBA
0 vote335 views2 answers
Vb.net include quotes in string
VBA
0 vote322 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote336 views2 answers
Excel vba number format file size
VBA
0 vote354 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote304 views1 answer
Change whcih control a user has selected vb
VBA
0 vote270 views1 answer
How to self delete a vbscript file
VBA
0 vote313 views1 answer
Vba leading zeros in string
VBA
5 votes323 views1 answer
Excel formula how to create strings containing double quotes
VBA