Use macro to copy & transform data

Question

I'm trying to copy data from a pivot table to another location such that the data in in columnar form where each "account number" is tied to its "cost center" and its associated "amount." The image below shows visually what I'm trying to achieve. I've used the "record macro" feature and it works.

However, the code is very long and I'm pretty sure it won't be dynamic for changes in pivot table size. So I thought I'd ask for help here.

If the code is straightforward and someone is will to share I'd appreciate it. Or, if someone can point me in the correct direction I'd appreciate that too! Thank you for your time and expertise!