Sub TrierAvDCol()
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=ActiveSheet.[XFD2].End(xlToLeft)(3, 1), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange ActiveSheet.[A5:AW5].Resize(ActiveSheet.[A1000000].End(xlUp).Row - 4)
.Header = xlNo: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin
.Apply
End With
End Sub