Filter Pivot table by each customer and auto email invoices unpaid

Attached file.

after you step into the macros. once it filters invoices unpaid by the first customer, in the pivot.

It gives an error

I was not able to resolve this.

anyone able to help me run this code please.

Objective of this macro is automate: filter on pivot for each customer, that shows invoices unpaid. then email it to the customer..and so on for each customer

thanks