How to get the row number of bottom usedrange?

[London12F]

[TABLE="width: 546"]
<colgroup><col></colgroup><tbody>[TR]
[TD]As new set of cells has to be copied at the bottom of existing used cells,[/TD]
[/TR]
[TR]
[TD]but the VBA code below is failed (far lower than my used range),[/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 546"]
<tbody>[TR]
  [TD="class: xl66, width: 546"]a =  ActiveCell.SpecialCells(xlLastCell).Row[/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 546"]
<tbody>[TR]
[TD="class: xl66, width: 546"]please advise the code.[/TD]
[/TR]
</tbody>[/TABLE]

 

[My Aswer Is This]

If you want the Lastrow with data in column "A"
Try this:

Sub Last_Row()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox Lastrow
End Sub

And be aware there are probable 20 other ways to do this also.

 

[London12F]

How about the lowest Lastrow with data in all used columns, not just Column A?

 

[Fennek]

Hi,

try

a =  Activesheet.cells.SpecialCells(xlLastCell).Row

if there a formats below the data, this code could have problems.

regards

 

[Fluff]

How about

Sub LstRw()

    Dim UsdRws As Long

    UsdRws = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

End Sub

 

[London12F]

Thanks Fluff, it's work.
Also thanks to My Aswer Is This, Fennek for suggestion.

 

[Fluff]

Glad we could help & thanks for the feedback