How to update multiple pivot tables using VBA?

Question

I am trying to update Pivot Tables when there is a change in data. I ran this code on a separate worksheet and it worked, however when I try to run it on a work worksheet it