VBA Code to create multiple pivot tables from the same data on multiple sheets

[Dremzy]

Hi Guys,

I have a sheet of data which reflects e-mails that have come into a mailbox.

Columns: Date, Category of e-mail, Time take to respond, SLA misses, Comments. (The table begins on A1 with the last column being F1). There are curerntly 50 rows of data.

I want a piece of VBA code to create MULTIPLE (lets say 2) pivot tables from this data, each pivot table being on a new sheet, referencing back tot eh same data. Is this possible?

I would also like a piece of code that creates pie charts from the pivot table afterwards, but I can figure out that part myself.

I would really appreciate any help on this code.

I would like to be actioned from a command button, so that everytime you click the button it could replicate the process.

 

[Dremzy]

Apologies,

I also want the code to automatically set the pivot tables to the following:

column "category of e-mail" to be a ROW and also to count the number of e-mails in each category.

This is where I created a code and came across the error "run time 1004".