When adding new fields to the value part of your pivot table, they automatically set to COUNT, where most of the time you require a SUM. Changing all fields manually (and also correcting the format) is irritating and time consuming.
Hence the following macro, which changes the setting of each field in your value list to SUM and makes it look pretty!
Sub SumAllValueFieldsPivot() Dim pt As PivotTable Dim ps As PivotField Dim ws As Worksheet Set ws = ActiveSheet Set pt = ws.PivotTables(1) Application.ScreenUpdating = False pt.ManualUpdate = True For Each pf In pt.DataFields pf.Function = xlSum pf.NumberFormat = "#,##0_ ;[Red]-#,##0 " Next pf pt.ManualUpdate = False Application.ScreenUpdating = True Set pf = Nothing Set pt = Nothing Set ws = Nothing End Sub