How to set up a loop

Another option:

Sub DelEmptyRows()
Range("C2:C20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub