Специальная вставка в зависимости от диапазона фильтра Ошибка 1004

Question

Цель: Мой диапазон - это все строки, для которых Parish имеет значение "true" в AICOW, затем в столбце C в следующую пустую строку я хотел бы вставить для диапазона специальный текст "Прерывание бизнеса".

Код: Однако мой код получает ошибку 1004 Ошибка приложения или объекта. Я не уверен, как я должен редактировать это, чтобы моя цель работала.

Dim RPDataTbl As ListObject
Dim ParishCol As ListColumn, AICOW As ListColumn
Dim SpecialText As Range

Set RPDataTbl = Sheets("Risk Partner Data").ListObjects("RPdata")
With RPDataTbl
    Set ParishCol = .ListColumns("Parish")
    Set AICOWcol = .ListColumns("AICOW")

    .Range.AutoFilter Field:=AICOWcol.Index, Criteria1:="TRUE"
End With

On Error Resume Next
Set SpecialText = ParishCol.DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not SpecialText Is Nothing Then

    With Sheets("Calc Data")
        .Cells(.Rows.Count, "C").End(xlUp).Offset(1).PasteSpecial Format:="Business Interruption"
    End With


End If

RPDataTbl.Range.AutoFilter Field:=AICOWcol.Index

End Sub

Спасибо за помощь.