Makroarbeit nicht vollständig

Sub Spaltenlöschen()
Dim x As Long
x = 65 'Welche Zeile soll durchsucht werden'
For i = 1 To 180 'Bis in welche Spalte soll gesucht werden'
If Cells(x, i).Value = 0 Then '0 = Wert soll Bedingung für die Löschung sein'
Columns(i).Delete     'lösche die zeile'
End If
Next
End Sub

###################
Das Makro soll beim Starten die Spalten die "0" oder gar nichts enthalten löschen.
Mein Problem:
Beim einmaligen Durchlauf nicht alle. Aktiviere ich das Makro ca. 3-5 mal hat er alles erledigt.
Mein Frage:
Jemand ne Ahnung, wie ich das richtig hinbekommen kann und worin der Fehler liegt?
Danke und schönen Gruß
Tobias