Сортировка массива с помощью дерева

Dim a()
Dim k As Integer
Dim L, R, x As Integer
Sub лаб1()
Call read_array
End Sub
Public Sub read_array()
i = 1
ReDim a(1)
While (Cells(11, i) >= 20 And Cells(11, i) <= 50)
    ReDim Preserve a(i)
    a(i) = Cells(11, i)
        i = i + 1
Wend
For k = 1 To i - 1
Cells(13, k) = a(k)
Next k
End Sub

' генерируем одномерный массив в строку с номером line, длинной в n элементов целого типа (чисел) в диапазоне [20..45] включительно
Sub real_gener(line, n As Integer)
  Sheets(1).Range(Cells(line, 1), Cells(line, n)).FormulaLocal = "=ЦЕЛОЕ(СЛЧИС()*(46-20)+20)" '  для генерации целых чисел в диапазоне [a..b] исп формулу: CСЛЧИС()*(b+1-a)+a
End Sub

' считывает данные с одной строки с номером line листа в массив A, пока в ячейках есть данные
' возвращает количество считанных елементов массива
Function ReadArray(line As Integer, ByRef A() As Integer)
Dim i As Integer
 
  i = 1
  ' считаем сколько значений есть у нас в строке
  While Sheets(1).Cells(line, i) <> ""      ' читаем, пока есть значения
    i = i + 1
  Wend
  ReDim A(i - 2)        ' устанавливаем размер массива (с учетом, что начальный элемент это A(0) )
  i = 1
  ' проходим еще раз, теперь уже загружаем значения в массив
  While Sheets(1).Cells(line, i) <> ""
    A(i - 1) = Sheets(1).Cells(line, i)     ' записываем считанные цифры в массив
    i = i + 1
  Wend
  ReadArray = i - 1     ' возвращаем кол-во считанных элементов
End Function

Const numberLine = 3    ' на какой строке будут располагаться данные. 
Const n = 25         ' количество генерируемых случайных чисел
Dim i As Integer
Dim A() As Integer
 
Application.Calculation = xlCalculationManual 'отключение автоматический пересчёт формул (что бы сохранились начальные данные)
    
    Call Gener.real_gener(numberLine, n)    ' генерируем на листе строку из n случ. чисел в строчке numberLine
    i = ReadArray(numberLine, A)            ' считываем сгенерированные данные в массив, и запоминаем их кол-во

Option Explicit         ' все переменные должны быть объявлены явно
option base 0          ' Устанавливает нижнюю границу индексов массива равной 0 т е A(0) - это 1 элемент массива