[Excel 2003] For Each Pivot Table

I have a data set with about 30 columns.
I am using a pivot table to analyse it, however, it is a pain to set up each time as I need to add so many fields.

I add 1 field to the Data Area
1 field to the Column Area and about 28 fields to the row area.

I also don't want the subtotals to show
Can I do

Code:

---

for each field in field list
    add to row area
    set subtotals = none
next

---