Массив А заполнен случайным образом целыми числами. Расположите их в порядке убывания - VB

Sub dratyti1()
Dim i As Long, j As Long, k As Long, m As Long, n As Long, tmp As Long
    n = 6 'кол-во строк
    m = 6 'кол-во столбцов
    ReDim a(1 To n, 1 To m) As Long, b(1 To n, 1 To m) As Long
    Cells.ClearContents
    Randomize
    For i = 1 To n
        For j = 1 To m
            a(i, j) = Int(Rnd * 11) - 5 'исходный массив от -5 до +5
    Next j, i
    b = a 'массив для сортировки
    For j = 1 To m 'сортируем пузырьком по столбцам
      For i = 1 To n - 1
        For k = i + 1 To n
            If b(i, j) < b(k, j) Then tmp = b(i, j): b(i, j) = b(k, j): b(k, j) = tmp
    Next k, i, j
    Cells(1, 1).Resize(n, m) = a 'исходный массив
    Cells(n + 2, 1).Resize(n, m) = b 'сортированный массив
End Sub