Reset Button

Try this,

Sub Reset()

    Range("A1").Select
    ActiveCell.FormulaR1C1 = "0"
    Selection.AutoFill Destination:=Range("A1:A36"), Type:=xlFillDefault
    'Modify above for your range of 36 cells
    
End Sub

Modify for your range of cells as noted.