Макс и мин значения диагоналей матрицы. Вистраивание значений строк в порядке возростания

Sub P1()
Dim Массив(1 To 5, 1 To 5) As Integer
Dim i As Integer, j As Integer
Dim minГл As Integer, maxГл As Integer
Dim minПоб As Integer, maxПоб As Integer
Cells.Clear
Randomize
For i = 1 To 5 Step 1
    For j = 1 To 5 Step 1
        Массив(i, j) = Int((100 - (-100) + 1) * Rnd + (-100))
        Cells(i, j).Value = Массив(i, j)
    Next j
Next i
minГл = Массив(1, 1)
maxГл = Массив(1, 1)
For i = 2 To UBound(Массив, 1) Step 1
    If Массив(i, i) < minГл Then
        minГл = Массив(i, i)
    ElseIf Массив(i, i) > maxГл Then
        maxГл = Массив(i, i)
    End If
Next i
minПоб = Массив(1, UBound(Массив, 2))
maxПоб = Массив(1, UBound(Массив, 2))
j = UBound(Массив, 2) - 1
For i = 2 To UBound(Массив, 1) Step 1
    If Массив(i, j) < minПоб Then
        minПоб = Массив(i, j)
    ElseIf Массив(i, j) > maxПоб Then
        maxПоб = Массив(i, j)
    End If
    j = j - 1
Next i
If minГл > minПоб Then
    MsgBox "Минимальное значение главной диагонали больше минимального значения побочной диагонали"
Else
    MsgBox "Минимальное значение главной диагонали меньше минимального значения побочной диагонали"
End If
If maxГл > maxПоб Then
    MsgBox "Максимальное значение главной диагонали больше максимального значения побочной диагонали"
Else
    MsgBox "Минимальное значение главной диагонали меньше максимального значения побочной диагонали"
End If
End Sub

Option Explicit
Sub Main()
Dim Матрица(1 To 3, 1 To 5) As Integer
'Заполняем матрицу числами (ну чтобы было с чем работать)
'и для наглядности выводим в Excel.
Call P1(Матрица)
'Подпрограмма нахождения средних значений в строках матрицы.
'Средние значения будем выводить в Excel справа от матрицы.
Call P2(Матрица)
'Сортировка элементов методом Пузырёк в каждой строке матрицы по возрастанию.
'И вывод полученной матрицы в Excel снизу от первоначальной.
Call P3(Матрица)
End Sub
Sub P1(ByRef Матрица)
Dim i As Integer, j As Integer
Cells.Clear
For i = 1 To UBound(Матрица, 1) Step 1
    For j = 1 To UBound(Матрица, 2) Step 1
        Матрица(i, j) = Int((100 - (-100) + 1) * Rnd + (-100))
        Cells(i, j).Value = Матрица(i, j)
    Next j
Next i
End Sub
Sub P2(Матрица() As Integer)
Dim i As Integer, j As Integer
Dim Сумма As Integer
For i = 1 To UBound(Матрица, 1) Step 1
    For j = 1 To UBound(Матрица, 2) Step 1
        Сумма = Сумма + Матрица(i, j)
    Next j
    Cells(i, UBound(Матрица, 2) + 2).Value = Сумма / UBound(Матрица, 2)
    Сумма = 0
Next i
End Sub
Sub P3(ByRef Матрица)
Dim i As Integer, j As Integer, k As Integer
Dim Стол As Integer
For i = 1 To UBound(Матрица, 1) Step 1
    For j = 2 To UBound(Матрица, 2) Step 1
        For k = UBound(Матрица, 2) To j Step -1
            If Матрица(i, k) < Матрица(i, k - 1) Then
               Стол = Матрица(i, k)
               Матрица(i, k) = Матрица(i, k - 1)
               Матрица(i, k - 1) = Стол
            End If
        Next k
    Next j
Next i
For i = 1 To UBound(Матрица, 1) Step 1
    For j = 1 To UBound(Матрица, 2) Step 1
        Cells(i + UBound(Матрица, 1) + 2, j).Value = Матрица(i, j)
    Next j
Next i
End Sub