sub ochistka ()

For n=1 to 100

If range("A" & n).Value> 0 then 'если А n-ая яйчейка больше нуля
Range ("A" & n).value=0 ' то обнулить или Range ("A" & n).value="" очистить 
end if

next n

End sub