Преобразуйте массив, поменяв местами минимальный и максимальный элементы в каждой строке массива

Public Sub йке()
Dim d()
n = InputBox("Введите количество строк массива")
m = InputBox("Введите количество столбцов массива")
a = InputBox("Введите нижнюю границу значений элементов массива")
b = InputBox("Введите верхнюю границу значений элементов массива")
ReDim d(n, m)
S = 0
Randomize
    For i = 1 To n
        For j = 1 To m
             d(i, j) = Int(a + Rnd * (b - a))
            Cells(i, j) = d(i, j)
Cells(i, j + 2 + m) = d(i, j)
Next j
Next i
 
For i = 1 To n
For j = 1 To m
If d(i, j) > d(i, j + 1) Then
 p = d(i, j)
o = d(i, j + 1)
d(i, j) = o
d(i, j + 1) = p
 
End If
Next j
Next i
End Sub

Public Sub йке()
n = InputBox("Введите количество строк массива")
m = InputBox("Введите количество столбцов массива")
a = InputBox("Введите нижнюю границу значений элементов массива")
b = InputBox("Введите верхнюю границу значений элементов массива")
ReDim d(n, m)
S = 0
Randomize
    For i = 1 To n
        For j = 1 To m
             d(i, j) = Int(a + Rnd * (b - a))
            Cells(i, j) = d(i, j)
'Cells(i, j + 2 + m) = d(i, j)
Next j
Next i
 
For i = 1 To n
Max = d(i, 1)
Min = d(i, 1)
n_max = 1
n_min = 1
For j = 2 To m
If d(i, j) > Max Then
Max = d(i, j)
n_max = j
End If
If d(i, j) < Min Then
Min = d(i, j)
n_min = j
End If
Next j
temp = d(i, n_max)
d(i, n_max) = d(i, n_min)
d(i, n_min) = temp
Next i
    For i = 1 To n
        For j = 1 To m
         Cells(i, j + 2 + m) = d(i, j)
Next j
Next i
 
End Sub

Sub asdf()
Dim d()
n = InputBox("Введите количество строк массива")
m = InputBox("Введите количество столбцов массива")
a = InputBox("Введите нижнюю границу значений элементов массива")
b = InputBox("Введите верхнюю границу значений элементов массива")
ReDim d(n, m)
s = 0
Randomize
    For i = 1 To n
        For j = 1 To m
             d(i, j) = Int(a + Rnd * (b - a))
            Cells(i, j) = d(i, j)
Cells(i, j + 2 + m) = d(i, j)
Next j
Next i
 
For i = 1 To n
Min = d(i, 1)
Max = d(i, 1)
For j = 1 To m - 1
If d(i, j + 1) > Max Then
  Max = d(i, j + 1)
ElseIf d(i, j + 1) < Min Then
  Min = d(i, j + 1)
End If
Next j
 
For k = 1 To n
If d(i, k) = Min Then
d(i, k) = Max
Cells(i, k) = Max
ElseIf d(i, k) = Max Then
d(i, k) = Min
Cells(i, k) = Min
End If
Next k
 
Next i
End Sub

Option Explicit
Rem Дан массив А(n,m). Преобразуйте массив, поменяв местами минимальный и
Rem максимальный элементы в каждой строке массива. Для контроля правильности работы 
Rem алгоритма, при выводе элементов массива в ячейки рабочего листа, параллельно
Rem выведите копию массива в ячейки рабочего листа через два столбца от исходного
Rem массива (например, исходный массив будет выведен в ячейки A1:E5, а его копия – 
Rem в ячейки H1:L5).
 
Public Sub йке()
Dim n As Integer, m As Integer, a As Integer, b As Integer
Dim tmp As Integer, d() As Integer
Dim i As Integer, j As Integer
Dim jmax As Integer, jmin As Integer
 
    n = InputBox("Введите количество строк массива")
    m = InputBox("Введите количество столбцов массива")
    a = InputBox("Введите нижнюю границу значений элементов массива")
    b = InputBox("Введите верхнюю границу значений элементов массива")
 
    ReDim d(n, m)
    Randomize
    For i = 1 To n
        For j = 1 To m
            d(i, j) = Int(a + Rnd * (b - a))
            Cells(i, j) = d(i, j)
            Cells(i, j + 2 + m) = d(i, j)
        Next j
    Next i
 
    For i = 1 To n
        jmax = 1
        jmin = 1
        For j = 2 To m
            If d(i, j) > d(i, jmax) Then
                jmax = j
            ElseIf d(i, j) < d(i, jmin) Then
                jmin = j
            End If
        Next j
        If jmax <> jmin Then
            tmp = d(i, jmax)
            d(i, jmax) = d(i, jmin)
            d(i, jmin) = tmp
            Cells(i, jmax) = d(i, jmax)
            Cells(i, jmin) = d(i, jmin)
        End If
    Next i
 
End Sub