Finding row number at the bottom of a block of data

[Andreww]

Hi - Essentially I need to find how many records in a worksheet.

I can do

Sub test1()
Sheets("Data").Select
Range("A1").Select
Selection.End(xlDown).Select
End Sub

Which taked me to the end of the block of data, but how do I:

a) Find the rownumber the curser stopped at?
b) put the cell address into a cell on a refernce sheet?

Any ideas?

Thanks

Andrew

 

[Tim Williams]

To avoid stopping at a gap in the data it's usually better to start at the bottom....

dim r as range

set r=sheet1.cells(sheet1.rows.count,1).end(xlup)

then you can use

r.row
r.address

 

[Andreww]

Splendid!

I'll try it in the morning.

Regards

Andrew