Очистить ячейку в столбце, если значение 0

for i = 1 to 60000
  if cells(i,1) = 0 then cells(i,2).ClearContents
next

sub ClearRange()
 t=2 ' первый ряд откуда надо начинать искать
 t1=5000 ' последний ряд куда надо  искать
 c=3' колонка в которой надо искать
for i=t to t1
 if  cells(i,c)=0 then cells(i,c)=""
next
end sub

Sub aF()
Dim mCOLUMN&
   mCOLUMN = 2
      With ActiveSheet
         .UsedRange.AutoFilter Field:=mCOLUMN, Criteria1:=0
         .UsedRange.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).ClearContents
         .AutoFilterMode = False
      End With
End Sub

Sub Main()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = [A:A].Find(0, , , xlWhole)
    If Not x Is Nothing Then
        [A:A].ColumnDifferences(x).EntireRow.Hidden = True
       ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Clear
        Rows.Hidden = False
    End If
End Sub