Automatically Delete Rows In Which No Data Exists

I have some code that works almost perfectly. I am trying to automatically delete rows in which no data exists in cells in a certain column.

the problem that I am having is that is seems to go into an infinite loop.

For example, if I delete row 5 and then iterate to the next row, row 5 becomes what used to be row 6 and now my code is on row 6...essentially skipping a row.

Here is an example data set (note that the set is for 20 rows):
1
3
6

15

36
37

here is the


Sub Macro2()

r = 20
Min = 1
Do While r >= Min
If Cells(r, 1) = "" Then
Cells(r, 1).EntireRow.Delete
Else
r = r - 1
End If
Loop

End Sub