Range("A1").SpecialCells(xlCellTypeBlanks).EntireR ow.Delete


--
HTH

Bob

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

"Curt D." wrote in message
...
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.