Loop through table headings to get intersection value from pivot table

I have a table with all possible row and column headings and a pivot table with just some of the same row and column heading as the table. I need a macro that would loop through the whole table to get the row and column headers intersect and pass the headings to the pivot table to find intersecting data to pass back to the table intersect. I have multiple named pivot tables that I need to get data from to populate the table.
Example: the value 15.75 from the second column in pivot named “fullpvt” would go in the cell at the intersection of shop/holiday on the Table and the value 12.75 from the first column in pivot named “partpvt” would go in the cell at the intersection of shop/holiday on the Table

My vba is self-taught but I have used the GetData to insert values in named ranges but my table has over 26 columns and 24 rows, that is too many named ranges.

I have attached an example workbook to help illistrate what I need.

Thanks in advance.

Thanks for your help.