Creating a Pivot table macro - Need to remove the marked rows through code
<p>I want the marked rows (subtotals) gone, here is the code for my Pivot table (I am coding a macro) any suggestions?
<a href="http://i.stack.imgur.com/JYGo8.jpg" rel="nofollow">See picture here</a></p>

<pre><code>    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange).CreatePivotTable TableDestination:="", TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 1)
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Kostenstellen-Nr"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Konto-Nr"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Betrag Brutto"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenstellen-Nr").Orientation = xlRowField
ActiveSheet.PivotTables("PivotTable1").PivotFields("Konto-Nr").Orientation = xlRowField
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Betrag Brutto"), "Sum of Betrag Brutto", xlSum
</code></pre>