粘贴时excel中的宏出错

Question

我过滤一列然后尝试复制并粘贴其值。

但是，我收到错误 Range Class 的 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 中的记录宏功能。有什么想法吗？