Составить программу для обработки двумерных массивов

Dim c() As Integer, d() As Integer, e() As Integer
Dim n As Integer, m As Integer, k As Integer, i1 As Integer, j1 As Integer
Dim f As Boolean
f = True
n = InputBox("n") ' размерность массива
 
 
ReDim c(1 To n, 1 To n), d(1 To n, 1 To n)
 
Randomize
For i = 1 To n
For j = 1 To n
 c(i, j) = Int(Rnd(1) * 100 - 50) 'заполняем массив
Next j
Next i
 
f = True
Do While f            ' преобразуем массив чтоб максимальный
m = 0: f = False      ' элемент был один
For i = 1 To n
For j = 1 To n
 If m < Abs(c(i, j)) Then m = Abs(c(i, j)) ' m - максимальный по модулю элемент
Next j
Next i
 
 
For i = 1 To n
For j = 1 To n
 If Abs(m) = Abs(c(i, j)) Then
  k = k + 1: i1 = i: j1 = j
   If k = 2 Then
    f = True
    c(i, j) = Int(Rnd(1) * 100 - 50)
    k = 0
    End If
  End If
Next j
Next i
Loop
 
 
Cells.Clear
Cells(1, n + 2) = m
Cells(2, n + 2) = i1
Cells(3, n + 2) = j1
For i = 1 To n
For j = 1 To n
 
 Cells(i, j) = c(i, j)
 
Next j
Next i
 
 
For i = 1 To n
For j = 2 To n
 d(i, j - 1) = c(i, j - 1)
 If j1 <= (j - 1) Then d(i, j - 1) = c(i, j) 'удаляем строку
 Cells(i + n + 2, j - 1) = d(i, j - 1)
 
Next j
Next i
 
For i = 1 To n - 1
For j = 2 To n
 d(j - 1, i) = d(j - 1, i)
 If i1 <= (j - 1) Then d(j - 1, i) = d(j, i) ' удаляем столбец
 Cells(j + n * 2 + 2, i) = d(j - 1, i)
 
Next j
Next i
 
ReDim e(1 To n - 1, 1 To n - 1) 'формируем исходный массив
For i = 1 To n - 1
For j = 1 To n - 1
 e(j, i) = d(i, j)
Next j
Next i
 
For i = 1 To n - 1
For j = 1 To n - 1
  Cells(j + n * 3 + 4, i) = e(i, j) ' вывод исходного массива
Next j
Next i