貼り付け時のマクロエラー

列をフィルタリングしてから、値をコピーして貼り付けます。

しかし、範囲クラスのPasteSpecialメソッドが失敗したというエラーが表示されます。

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でレコードマクロ機能を使用しています。何か案は？