Pivot Table subtotals

[Kenny7sccr]

Hello,

Is there a way to make the Pivot Table sub-totals duplicate the column labels?


The sub-totals are giving me the sum of values; I just want it to repeat the column label again within the sub-group essentially.

 

[Worf]

Hello

Just click the desired pivot table cell and type your text.

 

[Kenny7sccr]

I have this pivot table being generated by VBA and want to auto send it. Everyday my data will be different so I can't hard code the text in

 

[Worf]

I am not seeing your pivot table layout, but this code should convey the general idea.
It displays some information and changes one subtotal label.

Sub Subtotal_name()
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables("pivot3")


MsgBox "# column fields: " & pt.ColumnFields.Count & vbLf & "# row fields: " & pt.RowFields.Count & _
vbLf & "# calculated fields: " & pt.CalculatedFields.Count & vbLf & "# data fields: " & pt.DataFields.Count _
& vbLf & "# hidden fields: " & pt.HiddenFields.Count & vbLf & "# page fields: " & pt.PageFields.Count _
& vbLf & "# visible fields: " & pt.VisibleFields.Count & vbLf & "# pivot fields: " & pt.PivotFields.Count


pt.RowFields(1).SubtotalName = pt.ColumnFields(1).Name
End Sub