VBA to loop through all pivot items in a pivot field and copies the results in a sheet

Good day,
I am searching for a macro/vba code which does the following:
1/ Loop through all items of a specific pivot table field (in the example: BASIN)
2/ Copy then one after the other the corresponding result computed in sheet "Gap_Calculation" and transferred to sheet "GAP" into a summary sheet where all are stored.
There are usually per item of BASIN 4 results to be calculated: one for market division A, one for market division In, one for market division PA and one for all these 3 market divisions.
How to do this?
Thanks a lot in advance
Best regards
Heinz

Hello
Thank you for your reply and suggestion.
This is possible but will cause quite a lot of work as the original database has more than 200000 items (and I would prefer a more flexible solution).
Further it will change the result.
So I'd prefer to have a VBA looping through the BASIN and copying the result.
Best regards
Heinz

Dear Fshbet,

Thank you very much for your quick reply and proposal.
Answering your question:
Marketdivision, customer aggregate3, and product group is different for different basin category. But this doesn’t matter because this is taken into account in the computation done (automatically) in sheet “gap_calculation”.
I tried your code but it gives an error message “run time error 1004” for the code line “Pvtable.PivotFields("Basin").CurrentPage = PTItem.Name”.
Probably my description of my problem was not fully clear, I apologize: Hereunder I try to do it better:

1. The macro should select item1 (“AM AST”) from the pivotfield “Basin”.
2. Then it should copy paste the corresponding values to “AM AST” (only values, no formulas) automatically computed and appearing in the sheet “Gap” in rows 3 (D3 to J3), 7 (D3 to J3), 11 (D3 to J3) & 15 (D3 to K3) to a new sheet, called “Summary”.
3. Then the macro should unselect item1 but select the next item2 (“AM GAL”) from the pivotfield “Basin”.
4. Then it should copy paste the corresponding values to “AM GAL” (only values, no formulas) automatically computed and appearing in the sheet “Gap” in rows 3 (D3 to J3), 7 (D3 to J3), 11 (D3 to J3) & 15 (D3 to K3) to this new sheet, called “Summary”, below the data of “AM AST”
5. The macro should do this for all items of “Basin” including item “ALL”

I thank you much for the time you have already devoted and devote to help me solving my problem.
Best regards

Heinz

Dear fshbet,
This looks perfect. Many, many thanks!
Is it also possible to add the pivotitem "All" in the loop?
Reputation will be added for sure.
Best regards
Heinz

Dear fshbet,
The purpose of "All" is to have then the weighted average of all these (pivot)items AM AST, AM GAL, etc.
It is helpful as a starting point and then to drill down by the other pivotitems to see from where the big gaps are coming compared to this weighted average.
Best regards
Heinz

Dear fshbet, thank you once more. Best regards, Heinz