Makro, Fjene alle rækker hvor værdien er 0

Hej eksperter

Jeg er kommet lidt i problemer med et excel regneark.
Jeg har et excelark, hvor alle vores produkter er listet,
og i kollonne B er antal, og de står som standard til 0.
er det muligt at lave en makro der sletter alle de rækker hvor der i kolonne B står 0?
For efterfølgende at gemme det som en PDF?

Jeg har desværre kun selv kunne finde ud af, at gemme filen som PDF, men mangler hjælp til resten.

KODE:
Private Sub submit_Click()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\PDF\Export.pdf", _
        OpenAfterPublish:=False
End Sub