EXCEL VBA ,SORT A COLUMN IN A PIVOT TABLE WITH HEADER

[mansi]

Hello
I need help to sort my pivot table.

I have this code line that worked before updating to 365 .Now doesn't work

Range("A1").Sort key1:="UTC Date Time", order1:=xlDescending, Header:=xlYes
Sheets("Result").Select
Range("A3").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh


now I see this error

Can someone help me how to solve it ? Thank you