Почему мой макрос не удаляет все строки (VBA)

Question

У меня есть этот макрос, он должен удалить все ячейки, у которых не установлен фон, но когда я выполняю макрос, если две или более смежные ячейки не делают есть фон это только удаляет один из них, вот код:

Sub Macro1() 
     Dim a As Range 

     Set a = Hoja1.Range("A1:A12") 
     For Each cell In a 
      If cell.Interior.ColorIndex = xlNone Then 
       cell.EntireRow.Delete 
      End If 
     Next 
End Sub 

Answer 1

Sub Macro1() 
    Dim a As Range, x As Long 

    Set a = Hoja1.Range("A1:A12") 

    For x = a.cells.count to 1 Step -1 
     with a.cells(x) 
      if .Interior.ColorIndex = xlNone Then .EntireRow.Delete 
     End With 
    Next x 
End Sub