Hola expertos necesito hacer una macro en excel 2007 que elimine las fila que contenga ceros.

hola  necesito una macro para eliminar las filas de una columna especifico que le agrego en un inputbox, pero esta macro la ejecuto y me elimina los ceros, pero no todos, tengo que ejecutarlo tres veces o hasta cinco para terminar de eliminar filas en ceros.

ejemplo:

1             A              B             C            D         E     F    G    H      I     J     K    L

2     aceite  1lts              35

3      frijol    kilo               0

4      atún                        21

5       sopa                      0

6       arroz                      20

macro 

Option Explicit
Sub EliminarFilaceros()
Dim fila As Integer
Dim Columna As Integer
Columna = InputBox("Introduzca el Numero de Columna:", "Introducir Columna")
For fila = 6 To 170
If Cells(fila, Columna).Value = 0 Then
Rows(fila).Delete
End If
Next fila
End Sub

De antemano gracias.