Filtering a list of Names from Worksheet1 onto Worksheet 2 based on specific criteria

The first worksheet contains registered voter information including whether or not they voted in the last 4 primary elections. If they did vote in the last four primaries, the relevant cells are populated with a label "A" for Absentee, or "P" for Polls indicating how they voted. These labels are found in the following columns:

2006 Primary = "CF"
2008 Primary = "CC"
2010 Primary = "BZ"
2012 Primary = "BW"

I need to filter that information based on election year. I have created a second worksheet with check boxes for 2012, 2010, 2008, & 2006. When I click on a box, I want a list of voters who voted in that year to populate down the page. If I select multiple years, it should only populate those voters that voted in ALL of the years selected. I have attached a copy of the workbook.

Can anyone advise the best way to approach this?

I would do this by using autofilter and copying.
See attachment - checkboxes are linked to their cells behind and they have the same macro "test" assigned.
thus way it is particularily easy to add next years results etc.
I left only small piece of data, because I don't like uploading that large file to forum server.

Sub test()
Dim lastrow As Long
Application.ScreenUpdating = False
Range(Cells(3, "A"), Cells(Rows.Count, "A").End(xlDown).Offset(0, 9)).ClearContents
  If Range("B1") Or Range("C1") Or Range("D1") Or Range("E1") Then
    With Sheets("Registered Voters")
      lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
      With .Range("$A$1:$CH$" & lastrow)
        If Range("E1") Then .AutoFilter Field:=84, Criteria1:="P" ' 2006
        If Range("D1") Then .AutoFilter Field:=81, Criteria1:="P"
        If Range("C1") Then .AutoFilter Field:=78, Criteria1:="P"
        If Range("B1") Then .AutoFilter Field:=75, Criteria1:="P"
      End With
      .Range("D2:D" & lastrow).Copy Range("A3") 'last names
      .Range("B2:B" & lastrow).Copy Range("B3") 'firstnames
      ' ... etc.
      .Range("$A$1:$CH$" & lastrow).AutoFilter
    End With
    Application.CutCopyMode = False
  End If
Application.ScreenUpdating = True
End Sub