Macro to create Pivot Table in Each sheet of Active Workbook

[rehana402003]

Dear All,

I am using Excel 2013.

Further to my thread “Macro to create Database from a Table Matrix on All Sheets in a Workbook”.
I have an issue which I am facing and would request help in this matter.

I would like to create a Pivot Table with the Data on each Worksheet as shown in the sample attached.
The Macro should run on each Sheet in the Active Workbook and create the Pivot Table for the data which will start after few row gaps from the main data. In current sample it is starting on Row 21 but it will not always be Row 21 so please not this point.
The code should determine the headers of the data coming from down to up in Col A.

The Pivot should be:
Filters – Sheetname
Rows - Product
Tag
Columns - Type
Value - Qty
Report Layout – Tabular (No Subtotal) – As per sample
Pivot Style Light 1, Banded Rows – as per sample
+/- Buttons – switch off

IMPORTANT NOTE:
Pivot should start on the same rows as the Headers of the database (see sample).
I hope it is clear.
Thanks for your time and help in advance.

[rehana402003]

Hello All,
Further to my Original Thread I am enclosing herewith a sample with the Macro recorded for creating the Pivot Table for my requirement.
I want to automate this as per my OP.

The code should:
1) Run on all the sheets in the active workbook.
2) Create the Pivot Table in line with the Database which would start after the Matrix. The size of Matrix will be different in height on each sheet.
3) Database will start in Column A after the Matrix and it will be five Cols Viz Col A to Col E.
4) Pivot should be created in line with the Headings of the Database as shown in the sample.

Thanks in advance for the help.

[rehana402003]

Dear All,
Is this doable by a VBA code?

TIA