try this for whichever row has the empty cells in it:

Range("A1").select
1 Do until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

Selection.EntireRow.Delete
ending = ending + 1
If ending 1000 Then
GoTo 2
End If
goto 1

2 end sub

this should go through the do loop and when it hits an
empty cell it will break the loop and delete the row,
then repeat the loop. the ending clause is how many rows
it will delete.

hope it helps