Deleting first empty row along with the next 700 rows

[Curt D.]

I have some data that I am trying to use the sumproduct formula on but I keep
getting the VALUE! code unless I delete the next 700 or so rows that have no
data in them. The number of rows with data changes so I can not just look at
certain number of rows. Does anyone have a way in VBA to select the first
emoty row and the next 700 rows (approx) and then delete them? Thanks in
Advance for the help.

 

[Bob Phillips]

Range("A1").SpecialCells(xlCellTypeBlanks).EntireRow.Delete


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)