Update 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

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables(1).PivotCache.Refresh
End Sub