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

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

Код:

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

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