保存已编辑的宏未排序

Question

我有一个数据透视表，每当刷新数据连接时，其内容都可以更改。 我保存了一个宏来对最后一列进行从最大到最小的排序，然后对其进行编辑，以便在运行时它总是跳转到最后一列。

但由于某种原因，它没有对所有新刷新的数据进行排序。

你能帮我分一下可能发生的事吗？

谢谢

    Sub WarningsSort()
'
' WarningsSort Macro
'

'
    Worksheets("WARNINGS").Activate
    With ActiveSheet
        LastCol = .Cells(7, .Columns.Count).End(xlToLeft).Select
    End With
        ActiveSheet.PivotTables("WarningsPivotTable").PivotFields( _
        "[Warnings].[Column5].[Column5]").AutoSort xlDescending, _
        "[Measures].[Count of Column5]", ActiveSheet.PivotTables("WarningsPivotTable"). _
        PivotColumnAxis.PivotLines(5), 1
End Sub