Macro en erreur Excel lors du collage

Je filtre une colonne puis j'essaie de copier et coller les valeurs.

Cependant, l'erreur PasteSpecial de la classe Range a échoué.

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

L'erreur spécifique est,

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

J'utilise la fonction macro d'enregistrement dans Excel. Des idées?