Hi,
I guess this will help. I have modified certain code and also added some formulas. However you need to take care of certain things like:
1. Sort the Directors Names in Working tab so that Pivot tab shows correct number of Directors.
2. Please create a Blank excel workbook with Name "extracted report" (exactly without quote) and with adequate sheet where the data will be Copied. In your code it was creating a new Workbook as "Book1" which is excel default name and might not be available all the time you run the macro.( I had lot of problem with that.)
3. please setup you print page setup code.I don't know why it was showing an Error on my System. or else leave as it is if its working fine with you.
Regards,

Bookmarks