Very few people are programming gurus. Most of us just muddle
through and hope we don't affect some critical operation. Can you
define "suppress" for us? Do you want to show a blank cell, delete
the cell, hide the row, etc.?

If you just want the cell  to be blank, a number format  might
be best.

I would like the entire row to be deleted. Thanks for your assistance.

This assumes that you are on the correct worksheet. That column 1
contains the zero values. That the data  starts in row 1.

Sub DeleteRows()
'' Checks cells in first column for 0. Deletes these rows.

Dim lngRow As Long, lngL As Long

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

lngRow = Cells(65536, 1).End(xlUp).Row

For lngL = lngRow To 1 Step -1
If Cells(lngL, 1).Value=0 Then Cells(lngL, 1).EntireRow.Delete
Next lngL

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With

End Sub

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