Public Const STRPIVOTKEYWORKING_START = "A1"
ThisWorkbook.Worksheets.Calculate
Columns(Range(STRPIVOTKEYWORKING_START).Column).Select
Selection.Sort Key1:=Range(STRPIVOTKEYWORKING), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=xlDescending, MatchCase:=False, Orientation:=xlTopToBottom