Пример макроса: Сортировка ячеек по нескольким столбцам из диапазона

Sub MultiLevelSort()      '' e20
    Worksheets("Sheet1").Sort.SortFields.Clear
    Range("A1:E6").Sort Key1:=Range("E1"), Key2:=Range("C1"), Key3:=Range("A1"), _
        Header:=xlYes, Order1:=xlDescending, Order2:=xlAscending, Order3:=xlAscending
End Sub

(function() {
    var oSheet = Api.GetSheet("Sheet1");
    var oRange = oSheet.GetRange("A2:E6")
    oRange.SetSort(oSheet.GetRange("E1"), "xlDescending", oSheet.GetRange("C1"), "xlAscending", oSheet.GetRange("A1"), "xlAscending", "xlYes", "xlSortColumns");
})();