Eliminar datos con una característica determinada de una tabla de datos

El siguiente vídeo muestra cómo eliminar datos de una tabla de datos, de acuerdo con una característica en específico, haciendo uso de autofiltros y del comando "Ir a". El atajo del teclado para activar / desactivar el autofiltro es Ctrl+Mayus+L (Ctrl+Shift+L). Puede que de acuerdo con la configuración del equipo la combinación de teclas cambie.

Se puede lograr lo mismo haciendo uso de una macro como esta:

Sub Eliminar_filas_cero()

    '  Desactiva la actulización de pantalla
    Application.ScreenUpdating = False

    '  Trabajar con todo el conjunto de datos a partir de
    '  A1 de la hoja "Hoja1"
    With Sheets("Hoja1").Range("a1").CurrentRegion
        
        '  Aplica el autofiltro al campo 3 con el criterio igual a 0
        .AutoFilter Field:=3, Criteria1:="0"
        
        '  Elimina las celdas visibles de los datos, excluyendo los
        '  encabezados
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
        
        '  Elimina el autofiltro
        .AutoFilter
        
    End With
    
    '  Activa la actualización de pantall
    Application.ScreenUpdating = True
    
End Sub