Ошибка макроса в Excel при вставке

Question

Я фильтрую столбец, затем пытаюсь скопировать и вставить значения.

Тем не менее, я получаю сообщение об ошибке PasteSpecial Метод Range Class Failed

Sub DD()
'
' DD Macro
'

'
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8, Criteria1:="1"
    Columns("A:A").Select
    Selection.Copy
    ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8
    Columns("I:I").Select
    ActiveSheet.Paste
    Range("I6").Select
End Sub
Sub dds()
'
' dds Macro
'

'
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8, Criteria1:="1"
    Columns("A:A").Select
    Selection.Copy
    ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8
    Columns("I:I").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J9").Select
    Columns("I:I").EntireColumn.AutoFit
    Range("I6").Select
    Application.CutCopyMode = False
End Sub

Конкретная ошибка,

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

Я использую функцию записи макросов в Excel. Есть идеи?