Замена элементов матрицы

Sub Obmen()
Dim B() As Integer, Min As Integer, I As Integer, J As Integer, Max As Integer, tmp, i1, i2 As Integer
 Worksheets(1).Cells.Clear
 Worksheets(2).Cells.Clear
 N = InputBox("Введите количество строк матрицы ", "N")
M = InputBox("Введите количество столбцов матрицы", "M")
 ReDim B(1 To N, 1 To M)
 
 For I = 1 To N
   For J = 1 To M
   B(I, J) = Rnd() * 60 - 20
 
 Next J
Next I
 
For I = 1 To N
For J = 1 To M
Worksheets(1).Cells(I, J).Value = B(I, J)
Next J
Next I
 
 For I = 1 To N
Max = B(I, 1)
   Min = B(I, M)
   i1 = 1
   i2 = M
 
 For J = 1 To M
 
 If B(I, J) > Max Then
 Max = B(I, J)
 i1 = J
  End If
   If B(I, J) < Min Then
   Min = B(I, J)
   i2 = J
  End If
    Next J
    tmp = B(I, 1)
   B(I, 1) = B(I, i1)
   B(I, i1) = tmp
    tmp = B(I, M)
   B(I, M) = B(I, i2)
   B(I, i2) = tmp
   Next I
For I = 1 To N
    For J = 1 To N
        Worksheets(2).Cells(I, J).Value = B(I, J)
    Next J
Next I
End Sub

Sub Obmen()
'Дана матрица B [N, М]. Найти в каждой строке матрицы максимальный
'и минимальный элементы и поменять их с первым и последним
'элементом строки соответственно.
Dim B() As Integer, Min As Integer, I As Integer, J As Integer, Max As Integer, tmp1, tmp2, i1, i2 As Integer
 Worksheets(1).Cells.Clear
 Worksheets(2).Cells.Clear
 N = InputBox("Введите количество строк матрицы ", "N")
 m = InputBox("Введите количество столбцов матрицы", "M")
 ReDim B(1 To N, 1 To m)
 
 For I = 1 To N
   For J = 1 To m
   B(I, J) = Rnd() * 60 - 20
   Worksheets(1).Cells(I, J).Value = B(I, J)
 Next J
Next I
 For I = 1 To N
Max = B(I, 1)
Min = B(I, 1)
   i1 = 1
   i2 = 1
 For J = 2 To m
 If B(I, J) > Max Then
 Max = B(I, J)
 i1 = J
  End If
    Next J
    tmp1 = B(I, 1)
   B(I, 1) = Max
   B(I, i1) = tmp1
   
   '-----
   Min = B(I, 1)
   i2 = 1
   For J = 2 To m
 If B(I, J) < Min Then
 Min = B(I, J)
 i2 = J
  End If
    Next J
  tmp2 = B(I, m)
   B(I, m) = Min
   B(I, i2) = tmp2
   Next I
   
For I = 1 To N
    For J = 1 To m
        Worksheets(1).Cells(I, J + m + 2).Value = B(I, J)
    Next J
Next I
End Sub