I need to check each row of a database to ensure it is not blank (this is
performed after importing data from an external source).

If the cell is blank, I need to delete the entire row.

The problem I'm having is if two blank rows are next to each other. The
routine I use does not delete the second row, because of the deletion of the
first one.

How do I 'reset' the variable to the row before the deletion, so that the
routine catches the second blank row?

For Each cl In Range("A2:A" & Range("A65500").End(xlUp).Row).Cells
If cl = Empty Then
cl.EntireRow.Delete
End If
Next