Стоит ли изобретать велосипед? Range.Sort Method производит сортировку диапазона значений.

Задача.

Использовать метод объекта Range для сортировки диапазона значений. Произвести сортировку по убыванию диапазона A1:A10.

Реализация.

Пишем процедуру SortExcelRange().

Sub SortExcelRange()
 [a1:a10].Sort _
   Key1:=Columns("a"), _
   Order1:=xlDescending, _
   Header:=xlNo, _
   Orientation:=xlSortColumns
End Sub

Метод .Sort имеет бóльшее (15 шт.) количество параметров и дает хорошие возможности по сортировке диапазонов. Если заглянуть в руководство разработчика Excel (F1), то можно найти полное описание метода.

Например, если нужно произвести сортировку по возрастанию - указываем соответствующий параметр метода.

Мы воспользовались лишь четырьмя параметрами для решения поставленной задачи. Назначаем готовую процедуру кнопке и получаем результат.