Delete entire row contents when cell in Col A = 0

[huc]

Hi all,

Can anyone help me with a bit of code to add to the end of a recorded macro that will look at the entire sheet, and where column A contains a zero delete the contents of that entire row, please.

Thanks,
Chris

 

[wigi]

For instance

Sub fff()
    With ActiveSheet.UsedRange.Columns(1)
        .Replace 0, "", xlWhole
        .SpecialCells(4).EntireRow.Delete
    End With
End Sub

 

[huc]

That's perfect, thank you very much.