Срочная тема!!!помог-ите,сижу на экзамене!2 вопрос в билете!!!

Sub Кнопка1_Щелкнуть()
Dim M() As Integer
Dim N As Integer
Dim MAX As Integer
Dim Rm As Integer
Dim Cm As Integer
Dim R As Integer
Dim C As Integer
Dim T As Integer
Cells.ClearContents
Cells.Interior.ColorIndex = 0
N = Val(InputBox("Введите размерность массива", "", 30))
If N = 0 Then Exit Sub
ReDim M(1 To N, 1 To N)
'заполнение
For R = 1 To N
    For C = 1 To N
        M(R, C) = Int(90 * Rnd + 10)
Next C, R
Range(Cells(1, 1), Cells(N, N)) = M ' выгрузка на лист
'поиск макс
MAX = M(1, 1)
Rm = 1
Cm = 1
For R = 1 To N
    For C = 1 To N
        If MAX < M(R, C) Then
            MAX = M(R, C)
            Rm = R
            Cm = C
        End If
Next C, R
Cells(Rm, Cm).Interior.ColorIndex = 8
'заена
For R = 1 To N
T = M(R, Cm)
M(R, Cm) = M(Rm, R)
M(Rm, R) = T
Next R
 
Range(Cells(N + 2, 1), Cells(2 * N + 1, N)) = M ' выгрузка на лист
 
End Sub