find the first used row

[Excelboo2]

I have written the following script to find the last row which contain data:

lastrow=cells(65,000,1).End(xlup).row

how should I write it if I want to find the first row which contain data

Thanks

 

[Jon von der Heyden]

Hi,

Try:

FirstRow = ExecuteExcel4Macro("GET.DOCUMENT(9)")

Regards
Jon

 

[Excelboo2]

Thanks a lot

 

[Boller]

Jon von der Heyden's suggestion will set FirstRow as the first used row.
This may not necessarily be the same as the first row with data.

To find the first row with data :-

On Error Resume Next
FirstRow = Cells.Find(What:="*", After:=[IV65536], _
    SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
On Error GoTo

An alternative to Jon von der Heyden's suggestion :-

FirstRow = ActiveSheet.UsedRange.Cells(1).Row

Except that if the whole sheet is blank, this will return 1 whereas Jon von der Heyden's suggestion will return 0