Трудно получить формулу копирования-вставки для работы и сжатия области вставки

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 при изменении типа используемой копии или вставки, но, похоже, не могу обойти эту часть.