Need vba to split rows as new workbook with existing sheets and pivots!!

Dear experts

I have master sheet contains multiple country ledger names In P:P (GSIAP Ledger Name) . i want split rows as individual country names as new workbook along with pivot and all sheets save to target folder and name corresponding Accounted CUR in K:K on each ledger name.


i want split individual account name rows from three sheets RPT25&AR&AM and refresh two pivot tables.

In sheets RPT25 col P with formulas Q:AB, In sheet AR col B,In sheet AM Col B along with change data source & refresh on two Pivots&ESV ,LOB sheets....like

Conslidated file Japan,Korea,MEO Primary split as newworkbook saved as JPY,KRW,MEO.

find the attachment

output is like JPY - CON,KRW - CON,MEO - CON.xlsb files