VBA to Copy Data from multiple Pivot table in one sheet

I have a Workbook, Where I have Sheet "Pivot_Tables" with Multiple Pivot tables

I want to copy the filtered data by creating new sheet for each table with the name of pivot table.

for e.g. first pivot table name1 (yellow colour), for that new sheet to be created and copy pivot data and paste in B7, like wise for all tables.

In sheet Pivot tables, the number of Pivot tables will be changing. The number of pivot table may increase or decrease time to time. Also the pivot column and rows also will change time to time. But all pivot will star from 7th row.