Pivot Table

I have a pivot table in a workbook, sheet name “pivot table” and have the code below in it, this refreshes the table when the sheet tab is clicked on, but I also want to resort column A in ascending order when the pivot table sheet is clicked on, is there some code that can be added to do this? Thanks for your help in advance. Paul