基于过滤器范围错误1004的特殊粘贴

Question

目标：我的范围是教区具有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

结束子

感谢您的协助。