Find the last used Row on a Worksheet

[poppy]

Hi Experts

Is it possible for me to select the blank row immediately after th
last used row? I am trying to do something like this, but it's no
working:


Code
-------------------
lastrow = Cells(Rows.count, "B").End(xlUp).Row
lastrow2 = lastrow + 2
Range("A65536").End(xlToRight).Select = "lastrow2"

OR

Range("lastrow2").End(xlToRight).Select

 

[Guest]

The UsedRange property of the worksheet will get it for you:
LastRow = Worksheets(SheetName).UsedRange.Rows.Count
(this gives the last used row, the blank row would be this plus one)

 

[Bob Phillips]

lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & lastrow+1).Value = "lastrow2"

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Ron de Bruin]

Hi K Dales

This is only working if you have data in the first row of your sheet

You can use this to find the last row with data

Firstrow = ActiveSheet.UsedRange.Cells(1).Row
Lastrow = ActiveSheet.UsedRange.Rows.Count + Firstrow - 1

 

[poppy]

Hi Experts

Thanx for all the quick responses. Got it working.


Kind Regard