Подсчитать отфильтрованный результат и вставить текст для суммы подсчета

1. Добавьте Option Explicit в начало вашего модуля. Более того, перейдите к Инструменты > Опции и нажмите Требуется объявление переменной . У вас есть необъявленная переменная BIcol - вы объявили BI As ListColumn.
2. Что касается вашей основной проблемы, возможно, используйте Count из copyRng в Resize. Обратите внимание, что следующий код изменен в соответствии с вашим примером: отфильтруйте столбец «Потеря дохода», получите количество непустых результатов и вставьте «Потеря дохода или арендной платы» в столбец C . 1112]

Sub Test
    Dim RPDataTbl As ListObject
    Dim DescCol As ListColumn, BIcol As ListColumn
    Dim copyRng As Range

    Set RPDataTbl = Sheets("Risk Partner Data").ListObjects("RPdata")
    With RPDataTbl
        Set DescCol = .ListColumns("Property Identifier")
        Set BIcol = .ListColumns("Loss of Income or Rent")

        .Range.AutoFilter Field:=BIcol.Index, Criteria1:="<>"
    End With

    On Error Resume Next
    Set copyRng = BIcol.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If Not copyRng Is Nothing Then
        With Sheets("Calc Data")
            .Cells(.Rows.Count, "C").End(xlUp).Offset(1).Resize(copyRng.Count).Value = "Loss of Income or Rent"
        End With
    End If

    RPDataTbl.Range.AutoFilter Field:=BIcol.Index
End Sub