macro row delete help

[plost33]

hi all. i have a spreadsheet sheet that has possible values in the range H7:N21

I want to delete an entire row if that row does not have a value in the range between H:N

i beleive this is a loop inside a loop but i think i am way over complicating things. here is my loops i have now:

 For i = 7 To 21
    With Range("H" & i)
        If .Value = "" Then
            For c = 9 To 14
                With Range(c & i)
                    If .Value = "" Then
                        Next c
                    Else
                        Next i
                    End If
                End With
       Else
        Next i
   End With

hope someone can assist.

 

[Shawnyv]

This is slightly more elegant with the same result:

d = 7

For i = 7 To 21
If (WorksheetFunction.CountA(Range("H" & d & ":N" & d)) = 0) Then
Rows(d).EntireRow.Delete
Range("A1").Value = d
Else
d = d + 1
End If

Next i