How to use checkbox form control feature to copy/paste data

I'm trying to use checkbox form control to allow users to easily pick a range of options from a large list, and then have it copy/paste on to another table containing the user's selections. The code is getting tripped up on the second line, and it says "Object Doesn't Support this property or method"

Can someone please help out with this? Is there a better way to do it? I basically am looking for an easy way for people to select a small range of data from a big one without using the filter feature on a table column.

Sub FedRPRFn_Click()
  If ActiveSheet.CheckBox("FedRPRFn").Value = 1 Then     '1 = Checked
     Sheets("Job Functions").Range("B3").Copy _
             Destination:=Sheets("Job Functions").Range("Q3")
  End If
End Sub