pt.ManualUpdate = False ' отключение обновления данных таблицы по фильтрам

...

pt.ManualUpdate = True ' включение обновления данных таблицы по фильтрам

Set pt = ThisWorkbook.Worksheets("Сводная таблица").PivotTables("Паспорт депо")
Set shFilter = ThisWorkbook.Worksheets("Фильтры")

With pt.PivotFields("[спрДепо].[ф7].[ф7]")
    .ClearAllFilters
         
    pok = "[Measures].[Безотказная работа (диап.)]"
    Select Case True
        Case shFilter.tb_BR1:
            .PivotFilters.Add2 _
                Type:=xlValueEquals, _
                DataField:=pt.CubeFields(pok), _
                Value1:=1
        Case shFilter.tb_BR2:
            .PivotFilters.Add2 _
                Type:=xlValueEquals, _
                DataField:=pt.CubeFields(pok), _
                Value1:=2
    End Select
End With

= Date.ToText([#"АВР|Дата"],"yyyy-MM-dd")
& "_"
& [#"Счет фактура|Номера"]

old_FileName = ThisWorkbook.FullName
' сохраним в архив текущую книгу
ThisWorkbook.SaveAs ThisWorkbook.Path & "\arhive_RemontKP_" & Format(Now, "YYYY-MM-DD-HHMMSS") & ".xlsm"
            
' заменить старый файл новой версией
Application.DisplayAlerts = False
iBook.SaveAs old_FileName
Application.DisplayAlerts = True

Private Const rDayZeroBias As Double = 109205#   ' Abs(CDbl(#01-01-1601#))
Private Const rMillisecondPerDay As Double = 10000000# * 60# * 60# * 24# / 10000#