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

25 votes357 views3 answers
String to date vb
VBA
0 vote175 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote177 views1 answer
Vba string start with
VBA
8 votes198 views1 answer
Excel vba make integer
VBA
0 vote190 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote207 views2 answers
Get unique random number in vb.net
VBA
0 vote166 views2 answers
Excel vba prevent save
VBA
5 votes195 views1 answer
Excel-vba get integer high byte
VBA
0 vote180 views1 answer
Nested if else in vb.net
VBA
8 votes258 views1 answer
Vba make integer
VBA