Ошибка 438 с ListObject ("Table1"). DataBodyRange.PasteSpecial

Question

Я получаю ошибку во время выполнения:

z = lr1 + x - 1
With Worksheets("b")
    .Activate
    .Cells(2 + i, 2).Copy
     '(error in here)---------------v
    .ListObjects("Tabela20").DataBodyRange(z, 1).PasteSpecial Paste:=xlPasteValues
 End With

Я пробовал просто ".paste" или меняя Рабочие листы ("b") на ActiveSheet. или

z = lr1 + x - 1
With Worksheets("b")
    .Activate
    .Cells(2 + i, 2).Copy Destination:=.ListObjects("Tabela20").DataBodyRange(z, 1)
 End With

Этот макрос работал неделю назад.