Find Next Blank Row

[lintz]

Currently I use a loop to find the first blank row but as more and more data is entered into the spreadsheet the loop takes a long time to complete.

I used the below but it gives me an error. Can any offer some sample code to find the first blank row without using a loop.

LastCompletedRow = objExcel.Range("AX:AX").End(xlDown).Row

Thanks.

[schuurke28]

are blank rows sometimes followed by filled rows?
i.e.
row 1 with data
row 2 with data
empty row
row 4 with data
row 5 with data

Or is the first blank row equal to the last row in the file?
i.e.:
row1 with data
row 2 with data
empty row (last row in excel file)


If the empty row is the last row you can use this:

range("A1").select
'lastrow is the last row with data
lastRow = ActiveCell.SpecialCells(xlLastCell).Row