replace range cells <> 0 with 0

I have a range of cells a35:a243

If the cells contain any number other than 0, replace with 0

I have a sheet that I select a quanity of product a35:a243, and I start a new quote, I want to set all quanties to 0 Zero

when the quanity <> 0, I want to set that cell to 0

Note: Within the range I have charactor fields that I want to leave as is, Only want to effect numbers <> 0 to set them to 0

When I use

Sub ResetVal2()
Const RgAdd = "A35:A243"
Dim WkRg As Range, Rg As Range
Set WkRg = Range(RgAdd)
With WkRg
.Parent.AutoFilterMode = False
.AutoFilter Field:=1, Criteria1:=">0"
.SpecialCells(xlCellTypeVisible).Cells = 0
.Parent.AutoFilterMode = False
End With
End Sub

It eliminates my filter button on B33 (set to filter <non blanks> from b34:v243
I use this filter to filter in quantities over the value of 0

Thank you very much