Как включить заголовок фильтра сводной таблицы в Excel VBA

Question

Я попытался сгенерировать код для создания заголовка фильтра сводной таблицы со ссылкой на макрос записи. После этого я попытался запустить его с помощью vba, чтобы создать сводный заголовок фильтра отчетов на основе моих данных, но он просто не отображается. Как решить эту проблему или какими другими способами можно включить заголовок сводной таблицы при создании сводной таблицы с помощью VBA?

Dim LastRow As Long, PRange As Range
LastRow = Worksheets("Result").Cells(Rows.Count, 2).End(xlUp).Row

Set PRange = Worksheets("Result").Range("A2:D" & LastRow).CurrentRegion
Dim pc As PivotCache, pt As PivotTable

Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)

Set pt = pc.CreatePivotTable(TableDestination:=Worksheets("wafermapvbd1").Cells(3, 1), TableName:="PivotTable100")

Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name"). _
        ClearAllFilters
    Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name").CurrentPage _
        = "(All)"
   Worksheets("wafermapvbd1").PivotTables("PivotTable100").PivotFields("Device_name"). _
        EnableMultiplePageItems = True

Другая дополнительная информация

мои данные в рабочие листы («Результат»)

Фактический

ожидается