Multiple pivot table filter on cell text

Hello. I have a worksheet where I have multiple pivot tables that I want to filter on 1 text cell. I can get the first table to work but cannot get the second pivot table to flow. The VBA I'm using is shown below. The items with the A or 1 behind the name are not properly flowing (Pivot Table 4) Also, I have named the text Cell as "PCPFilterRange." I'm not very familiar with VBA but found some information online but not completely sure how to alter it. Please let me know any suggestions

My macro For the non-working portion

Please Login or Register  to view this content.

My VBA in total

Please Login or Register  to view this content.