VBA to edit existing pivot tables

Hi

I have a large workbook with 1 input worksheet and 30 following worksheets each containing a pivot table which references the input sheet.

15 of the pivot tables are in exactly the same position (starting column B, row 36) and the other 15 are in the same position (starting column B, row 297). These two forms of pivot table are positioned alternately.

I require a macro to carry out the following actions, in the following sequence:

1) Insert a row above each of the pivot tables
2) Add a field into the Report Filter
3) Select a value on the new field added to the Report Filter

This is an urgent problem for me and I look forward to your response.

Thanks
Alastair