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