PT.PivotFields("Статус").CurrentPage = "Выполнен план"

Sub Макрос()
    Dim PTCache As PivotCache
    Dim PT As PivotTable

    For Each PTForDelete In ThisWorkbook.Sheets("Сводная таблица").PivotTables
        PTForDelete.TableRange2.Clear
    Next PTForDelete

    Set PTCache = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=ThisWorkbook.Worksheets("Исходные данные").Range("A1").CurrentRegion.Address)

    ThisWorkbook.Sheets("Сводная таблица").Activate
    Set PT = ThisWorkbook.Sheets("Сводная таблица").PivotTables.Add( _
        PivotCache:=PTCache, _
        TableDestination:=ThisWorkbook.Sheets("Сводная таблица").Range("A2"), _
        TableName:="СводнаяТаблица")
        
        
    Set PT = ActiveSheet.PivotTables("СводнаяТаблица")
    PT.PivotFields("Статус").Orientation = xlColumnField
    PT.PivotFields("ТТ").Orientation = xlRowField

With ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Статус")
     For Each PItem In .PivotItems
        PItem.Visible = False
        If PItem.Name = "Выполнен план" Then PItem.Visible = True
     Next
End With
  
End Sub