Macro to create a new pivot table for each column in a spreadsheet

[donna_koenig]

Hi, I have a spreadsheet used for ballot counting. Each ballot has 21 categories.

Example Ballot Class 1 Class 2 Class 3 Class 4 .......
1 68 27 36 47
2 68 13 6 12
3 68 27 6

I want to create 21 pivot tables, #1 Using Column (1) Class 1, counting each value #2 Using Class 2, counting each value. is there a way to do a macro to create them all.

Class 1 Pivot Class 2 Pivot Class 3 Pivot Class 4 Pivot ......
Vehicle Votes Vehicle Votes Vehicle Votes Vehicle Votes
68 3 27 2 6 2 47 1
13 1 36 1 12 1