VBA计算器提取产品名称和清空计算器按钮求解！！！

鸿雁飞翔

预算单

计算器

代码：Private Sub CommandButton1_Click()
Dim n As Integer, C() As String
For n = 8 To 255
Range("C8").Select
    Sheets("计算器").Select
    Range("F4:G4").Select
    ActiveCell.FormulaR1C1 = "=预算单!R[4]C[-3]"
Exit For
Next
End Sub

Private Sub CommandButton2_Click()
Sheets("计算器").Cells.Value = ""
End Sub

要达到的效果：
一、任意选择报价表单上的行，单击“计算器”表上的“提取产品名称”按钮，计算器主表"产品名称"就显示"预算单"中选择行的产品名称。
二：单击"清空计算器"按钮,计算器清空，恢复初始状态。
目前的效果：
一、只能提取"预算单“中C8行产品名称
二、单击"清空计算器"按钮，计算器中部分清空。并跳出错误信息。
请哪位高手帮忙解决