You do say, "cell value of zero", and Paul furnished you code  for that. But just
in case the value is not 0, but is "" or blank, this will work fast and
efficiently without looping. It will not, however, remove a row when Column A
cell has a value of 0 entered into it. It will remove blank, "", cell  rows. Just
thought I would give you another option in case the cell value is actually ""
instead of 0.


On Error Resume Next 'In case there are no blank cells
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0