Сортировка

Сортировка диапазона в VBA выполняется всего парой строк. Для сортировки по возрастанию, которая задана по умолчанию не нужно указывать дополнительных параметров. Подойдет простой код, в примере ниже:

Sub SortRange1()
   Worksheets("Sheet1").Range("A2:R65536").Sort _
        Key1:=Worksheets("Sheet1").Range("C1")
End Sub

Этим кодом мы отсортировали Реестр документов по возрастанию столбца "Сумма".
Для сортировки по убыванию следует указать параметр order:=xlDescending. Следующим кодом мы отсортировали Реестр документов по убыванию столбца "Дата операции"

Sub SortRange2()
   Worksheets("Sheet1").Range("A2:R65536").Sort _
        Key1:=Worksheets("Sheet1").Range("B1"), _
        order1:=xlDescending
End Sub