Column values are not coming as column headings in pivot

[pulsecoding]

Team
I need pivot for below table. where count of type needs to be displayed against team names something like below. but when I run the below code, the column headings ("not operation", "operation" )does not display. it only shows total count.

data

team	type
bb	not operation
aa	operation
bb	not operation

Pivot

team	not operation	operation
bb	2
aa		1

    With ActiveSheet.PivotTables("PivotTable2").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    
    ActiveSheet.PivotTables("PivotTable2").RepeatAllLabels xlRepeatLabels
    
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Team")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Type")
        .Orientation = xlColumnField
        .Position =1
    End With
     
    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
            "PivotTable2").PivotFields("Type"), "Count of Type", _
        xlCount

 

[Alex Blakenburg]

Can you give this a try:

Sub ModifiedVersion()
    Dim pt As PivotTable
    Dim pf As PivotField

    'Set variables
    Set pt = ActiveSheet.PivotTables("PivotTable2")
    
    'Remove existing fields
    For Each pf In pt.DataFields
          pf.Orientation = xlHidden
    Next pf
  
    With ActiveSheet.PivotTables("PivotTable2").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    
    ActiveSheet.PivotTables("PivotTable2").RepeatAllLabels xlRepeatLabels
    
    ActiveWorkbook.ShowPivotTableFieldList = True
    
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Team")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
        "PivotTable2").PivotFields("Type"), "Count of Type", _
        xlCount
    
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Type")
        .Orientation = xlColumnField
        .Position = 1
    End With

End Sub