Delete Cells With a Certain Value

I have a column with some cells which have a value of zero. I want to delete, not clear those cells that have a value of zero. Do I need to use a loop? I am very new to this, so this is all I have. Thanks for any help

DeleleCells()
Columns("G:H").Select

If ActiveCell.Value = "0" Then
ActiveCell.Delete Shift:=xlUp
End If

End Su

b

Option Explicit

Sub Delete_Zero_Cells()

    Application.ScreenUpdating = False
    
    With ActiveSheet
        If .AutoFilterMode = True Then .AutoFilterMode = False
        
        Range("G1").CurrentRegion.Resize(, 1).AutoFilter field:=1, Criteria1:="=0", Operator:=xlAnd, Criteria2:="=0"
        Range("G1").CurrentRegion.SpecialCells(xlCellTypeVisible).Delete shift:=xlUp
            
    
        Range("G1").CurrentRegion.Resize(, 1).Offset(, 1).AutoFilter field:=1, Criteria1:="=0", Operator:=xlAnd, Criteria2:="=0"
        Range("G1").CurrentRegion.Resize(, 1).Offset(, 1).SpecialCells(xlCellTypeVisible).Delete shift:=xlUp
        
        .AutoFilterMode = False
        
    End With
    
    Application.ScreenUpdating = True

End Sub