Проблема с фильтром Excel VBA, когда нет записей

Question

Уважаемые пользователи Stackoverflow,

У меня есть сводная таблица, которая извлекает данные из базы данных ms sql, и после этого я фильтрую данные с помощью VBA в соответствии с некоторыми критериями.

Иногда Фильтр выдает ошибку времени выполнения «1004», потому что у критерия нет данных для отображения. Поэтому я задался вопросом, есть ли решение, когда такая ситуация возникает?

Код VBA прост, генерируется при записи макроса:

Sheets("raport").PivotTables("PivotTable1").PivotFields("Denumire_gestiune").ClearAllFilters
    With Sheets("raport").PivotTables("PivotTable1").PivotFields("Denumire_gestiune")
    
    
    .PivotItems("NG 643-2").Visible = True
    
    End With

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