Using VBA to filter Pivot Table based on a cell value

I have the following code which is trying to filter a Pivot table based on the input in Cell B2 of a different sheet. I'm having trouble with the line where the code fails here:

Please Login or Register  to view this content.

The error I'm getting says: "Run Time Error 1004" Unable to set the CurrentPage property of the PivotField Class

Below is the whole code. I hope somebody can help - I've spent hours trying to work this out

Please Login or Register  to view this content.

Hi,

Try this:

Please Login or Register  to view this content.