选中复选框功能以粘贴值

I am trying to make it so that if check box 82 is not checked then cell J39 is left blank but if it is checked the value is 3.8. On the line "Sheet.Range("J39").PasteSpecial Paste = "3.8"" I am getting a error message 1004 I am trying to make it so that if check box 82