Before you worry about the code  working, get the spreadsheet  working.

To make data  into a list you right click in the data area and select "Create
List". If there are blanks in the area this will not work and you will need
to get the data organised as a list.

Then go back and get the pivot  table recalc working

Then try your code again. If you have a problem come back to the list, but
don't say "This seems to be not working  for me" - tell us what happens when
you step through the code using F8. Does the pt not change? Do you get an
error message? Does the spreadsheet disappear in a puff of smoke?

While you are doing this, make sure that the sheet  with the pivot tables is
the Active Sheet while the macro  is running.