range selection error

hey all,
i am using activeX chcekboxes to determinewhat text will be inserten in a column. I have a macro to insert text (see below) that works. and then a macro tu delete it when the chcekbox gets unticked (see below) that works too. As long as they are separeted. Once i combine them as one code for the chceckbox (see below) i get a range selection error. What am i doing wrong? any suggestions? Many thanks. .xls attached


insert

Sub Macro5()
'
' Macro5 Macro
' try
'
' Keyboard Shortcut: Ctrl+a
'
    Sheets("Smart Analizer").Select
    Range("D8:D12").Select
    Selection.Copy
    Sheets("Requerimientos").Select
    ActiveSheet.ListObjects("Table2").Resize Range("$A$1:$E$200")
    Range("A1").Select
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("A2:A6").Select
    ActiveSheet.Paste
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1, Criteria1:= _
        "<>"
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$E$200").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("A2:A6").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.FormulaR1C1 = "Monto"
    Range("A2:A200").Select
    Range("A200").Activate
    Selection.Copy
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Sheets("Formulario").Select
    Range("I9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("I14:I208").Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("I8").Select
End Sub

undo
Sub Macro5_undo()
'
' Macro5_undo Macro
' a
'
' Keyboard Shortcut: Ctrl+s
'
    Range("I9").Select
    ActiveCell.FormulaR1C1 = ""
    Selection.AutoFill Destination:=Range("I9:I13"), Type:=xlFillDefault
    Range("I9:I13").Select
    Range("I7").Select
    Sheets("Requerimientos").Select
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 137
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("A2:A6").Select
    Range("A6").Activate
    ActiveCell.FormulaR1C1 = " "
    Range("A6").Select
    Selection.FillUp
    Range("A2:A6").Select
    Sheets("Formulario").Select
End Sub

combinado

Private Sub CheckBox1_Click()
If CheckBox1 Then
Sheets("Smart Analizer").Select
    Range("D8:D12").Select
    Selection.Copy
    Sheets("Requerimientos").Select
    ActiveSheet.ListObjects("Table2").Resize Range("$A$1:$E$200")
    Range("A1").Select
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("A2:A6").Select
    ActiveSheet.Paste
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1, Criteria1:= _
        "<>"
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$E$200").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("A2:A6").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.FormulaR1C1 = "Monto"
    Range("A2:A200").Select
    Range("A200").Activate
    Selection.Copy
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Sheets("Formulario").Select
    Range("I9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("I14:I208").Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("I8").Select
Else
Range("I9").Select
    ActiveCell.FormulaR1C1 = ""
    Selection.AutoFill Destination:=Range("I9:I13"), Type:=xlFillDefault
    Range("I9:I13").Select
    Range("I7").Select
    Sheets("Requerimientos").Select
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 137
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("A2:A6").Select
    Range("A6").Activate
    ActiveCell.FormulaR1C1 = " "
    Range("A6").Select
    Selection.FillUp
    Range("A2:A6").Select
    Sheets("Formulario").Select
End If
End Sub