das klngt doch sehr nach einer Anwendung für den Autofilter.  Hier ein Beispiel für die 1. 

Private Sub CheckBox1_Click()
    With ActiveSheet.Range("A1").CurrentRegion
        If CheckBox1 Then
            .AutoFilter Field:=1
            .AutoFilter Field:=1, Criteria1:="=1", Operator:=xlAnd
        Else
           .AutoFilter Field:=1
        End If
    End With
End Sub