[решено] Обратная автосортировка в MS Excel 2010

[denis.yurchenko.16@fb]

Доброго времени суток!
Помогите пожалуйста. Есть макрос:
Sub Макрос1()

ActiveWorkbook.Worksheets("Критерии оценки").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Критерии оценки").Sort.SortFields.Add Key:=Range("L5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Критерии оценки").Sort
.SetRange Range("A5:L2000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

На текущий момент с помощью него проходит сортировка от минимального к максимальному значению.
Что нужно в нём поменять (добавить), что бы сортировка шла от максимума к минимуму?

[okshef]

по возрастанию, пустые вверху
Order:=xlAscending
по убыванию, пустые внизу
Order:=xlDescending

XlSortOrder Enumeration (Excel) (https://msdn.microsoft.com/en-us/library/office/ff834316.aspx)