VBA Pivot Table without subtotals

[SueKi]

How do I add fields to a pivot table without it subtotaling every field? The language I'm using to add the fields is:

'Insert Row Fields
With ActiveSheet.PivotTables("ByJobPivotTable").PivotFields("Date Scheduled")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ByJobPivotTable").PivotFields("Wip Location Dept")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("ByJobPivotTable").PivotFields("Dept Description")
.Orientation = xlRowField
.Position = 2
End With

 

[BSALV]

.Subtotals = Array(False, False, False, False) 'with number of false depending on the layout of your PVT.

Use the macro-recorder and switch the subtotal off and on again + check the recorded macro to know that number.

 

[SueKi]

.Subtotals = Array(False, False, False, False) 'with number of false depending on the layout of your PVT.

Use the macro-recorder and switch the subtotal off and on again + check the recorded macro to know that number.

When I use the recorder, it does that for every field (including the ones not used in the pivot table.) Do I need to do that as well?

 

[BSALV]

VBA and pivottables is a difficult marriage.
Most of the time, i use the macro-recorder as guideline.
Thus yes, copy the whole macro-line into yours and check if it works.

If it doesn't work and you can't solve it, give a link with the icon here above.

 

[SueKi]

VBA and pivottables is a difficult marriage.
Most of the time, i use the macro-recorder as guideline.
Thus yes, copy the whole macro-line into yours and check if it works.

If it doesn't work and you can't solve it, give a link with the icon here above.

I got it!!! I can't believe it, I'm so happy. THANK YOU!!!

Right now, we have someone that cleans a report everyday, then makes and formats 2 different pivots from it. You've just saved us a ton of time. Thank you!