选中复选框后运行宏，并在取消选中时将工作表恢复为原始状态

Question

我正在尝试创建一个复选框，当复选框被＆＃34;检查时，将预先计算的数据插入到表格中。并将电子表格还原为单击复选框之前的状态，此时＆＃34;未选中＆＃34;。

我到目前为止的示例代码是

Sub XrayWeld()
'
' XrayWeld Macro
'

'
    Range("O7").Select
    ActiveCell.FormulaR1C1 = _
      "=((RC[-6]*'Table Data'!R[1]C[-8])+(RC[-5]*'Table Data'!R[1]C[-6])+(RC[-4]*'Table Data'!R[1]C[-5])+(RC[-3]*'Table Data'!R[1]C[-4])+(RC[-2]*'Table Data'!R[1]C[-2])+(RC[-1]*'Table Data'!R[1]C[-1]))"
    Range("O7").Select
    Selection.AutoFill Destination:=Range("O7:O30"), Type:=xlFillDefault
    Range("O7:O30").Select
    Sheets("Calculator Form ").Select
    Range("O32").Select

End Sub