Функция PasteSpecial не работает в Excel

Question

Мне нужно сделать макрос, который вставляет данные, когда я записываю макрос, у меня возникает одна и та же проблема каждый раз. Я надеюсь, что кто-то может помочь мне с моей проблемой.

Каждый раз, когда я отлаживаю, у меня возникает одна и та же проблема с этой функцией:

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

Range("AP5:AP43").Select
Selection.Clear
Range("AP5").Select
ActiveSheet.ListObjects("Table11").Range.AutoFilter Field:=4, Criteria1:="IT"

Range("C5:C51").Select
Selection.Copy
ActiveSheet.ListObjects("Table11").Range.AutoFilter Field:=4
Range("AP5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
    :=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("Table9[#All]").RemoveDuplicates Columns:=1, Header:= _
    xlYes
Range("Table9[Forecast på aktiviteter]").Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent6
    .TintAndShade = 0.599993896298105
    .PatternTintAndShade = 0
End With
Range("AS29").Select

End Sub