delete rows based on fill color

Public Sub DeleteCells()
Range("a1").Select
Do While ActiveCell.Value <> ""
If Selection.Interior.ColorIndex = xlNone Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub