help with debugging

My code doesn’t compile (VBA – Excel), each time I click on ‘Update All’ which updates the pivots, It comes back with the following error –

‘Run-time error '1004':
Unable to set the _Default property of the PivotItem class’

When I click on debug, the following line on the code is highlighted yellow –

Please Login or Register  to view this content.

Please can someone help….. please

this is the full code

the full code is attached