难以使复制粘贴公式起作用并压缩粘贴区域

Question

我一直在为excel宏编写一些代码，以将大量数据复制并粘贴到较小的部分，但是我不断收到运行时错误1004的消息，说粘贴范围类的特殊方法失败。

我尝试更改用于选择范围或命名范围的粘贴区域和代码，粘贴到单个单元格以及几种不同类型和范围的粘贴中，包括使用完全相同的区域。

Sub CAPAN()
'
' CAPAN Macro
'

'
    Range("Compressed_Associates").Clear
    Range("Associate_List").Clear
    Range("Uncompressed_Associates").CurrentRegion.Copy
    Range("Compressed_Associates").PasteSpecial xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("Compressed_Associates").AutoFilter Field:=1, Criteria1:="<>"
    Range("Compressed_Associates").Copy
    ActiveSheet.Range("Compressed_Associates").AutoFilter Field:=1
    Sheets("Weekly Associate Data").Range("F8").Select
    Selection.PasteSpecial xlPasteAll
    Application.CutCopyMode = False
    Columns("L:L").Select
    Selection.AutoFilter
    End Sub

代码在Selection.PasteSpecial xlPasteAll部分失败，它导致运行时错误1004，当我更改所使用的复制或粘贴类型但似乎无法通过此部分时，我也遇到了错误438。