Исключить строку и столбец, на пересечении которых находится минимальный элемент главной диагонали

Sub pg()
Dim matrixA(5, 5) As Integer, matrixB(5) As Integer, i As Byte, k As Byte, j As Byte, n As Byte, m As Byte
 
Min = 200
 
For i = 1 To 5
    
    For j = 1 To 5
        matrixA(i, j) = Int(Rnd() * 45 - 3)
        Cells(i, j) = matrixA(i, j)
        
        If i = j Then
            If matrixA(i, j) < Min Then
                Min = matrixA(i, j)
                k = i
            End If
        End If
        
    Next j
    
Next i
 
Cells(20, 1) = Min
Cells(21, 1) = k
End Sub

Sub pg()
Dim matrixA(1 To 5, 1 To 5) As Integer, newMATRIX(1 To 4, 1 To 4) As Integer
Dim i As Long, j As Long, r As Long, c As Long, mMin&, countR&, countC&
   Randomize
      For i = 1 To 5
         For j = 1 To 5
            matrixA(i, j) = Int(Rnd() * 45 - 3)
               If i = 1 And i = j Then mMin = matrixA(i, j)
               If i = j Then
                  If matrixA(i, j) < mMin Then
                     mMin = matrixA(i, j): r = i: c = j
                  End If
               End If
         Next j
      Next i
      countR = 0
      For i = LBound(matrixA, 1) To UBound(matrixA, 1)
         If i = r Then i = i + 1
         countR = countR + 1: countC = 0
            For j = LBound(matrixA, 2) To UBound(matrixA, 2)
               If j = c Then j = j + 1
               countC = countC + 1
               newMATRIX(countR, countC) = matrixA(i, j)
         Next 'j
      Next 'i
      Cells(1, 1).Resize(UBound(matrixA, 1), UBound(matrixA, 2)).Value = matrixA
         With Cells(Rows.Count, 1).End(xlUp)
            .Offset(2, 0).Value = mMin:  .Offset(2, 1).Value = r:  .Offset(2, 2).Value = c
         End With
         With Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
            .Resize(UBound(newMATRIX, 1), UBound(newMATRIX, 2)).Value = newMATRIX
         End With
         Erase matrixA, newMATRIX: MsgBox Space(10) & "D O N E!"
End Sub

If i = 1 And i = j Then 
   mMin = matrixA(i, j)
enf if

Sub pg()
Dim matrixA(1 To 5, 1 To 5) As Integer, matrixB(1 To 4, 1 To 4) As Integer
Dim i As Byte, k As Byte, j As Byte, countC As Byte, countR As Byte, pin As Byte
 
countR = 0
 
 
For i = 1 To 5
    For j = 1 To 5
        matrixA(i, j) = Int(Rnd() * 45 - 3)
        Cells(i, j) = matrixA(i, j)
        
        If i = 1 And i = j Then pin = matrixA(i, j)
            If i = j Then
            If matrixA(i, j) < pin Then
                pin = matrixA(i, j)
                k = i
            End If
        End If
    Next j
Next i
 
Cells(20, 1) = pin
Cells(21, 1) = k
 
For i = LBound(matrixA, 1) To UBound(matrixA, 1)
    If i = k Then i = i + 1
        countR = countR + 1
        countC = 0
        
        For j = LBound(matrixA, 2) To UBound(matrixA, 2)
                If j = k Then j = j + 1
                    countC = countC + 1
                    matrixB(countR, countC) = matrixA(i, j)
        Next j
Next i
 
For i = 1 To 4
    For j = 1 To 4
        Cells(i + 8, j) = matrixB(i, j)
    Next j
Next i
 
 
End Sub

Sub coll_pg()
Dim matrixA(), tmpARR(), coll As Collection
Dim i As Long, j As Long, r As Long, c&, mMin&, N&
   ActiveSheet.Cells.Delete
   N = 5: Set coll = New Collection: ReDim matrixA(1 To N, 1 To N): Randomize
      For i = 1 To N: ReDim tmpARR(1 To N)
         For j = 1 To N
            matrixA(i, j) = Int(Rnd() * 45 - 3): tmpARR(j) = matrixA(i, j)
               If i = j Then
                  If i = 1 Then
                     mMin = matrixA(i, j): r = i
                        Else: If matrixA(i, j) < mMin Then mMin = matrixA(i, j): r = i
                  End If
               End If
         Next 'j
         coll.Add tmpARR
      Next 'i
   Cells(1, 1).Resize(UBound(matrixA, 1), UBound(matrixA, 2)).Value = matrixA
   Erase tmpARR: coll.Remove r
      With Cells(Rows.Count, 1).End(xlUp)
         .Offset(2, 0).Value = mMin:  .Offset(2, 1).Value = r:  .Offset(2, 2).Value = r
      End With
      ReDim matrixA(1 To coll.Count, 1 To N - 1)
         For i = 1 To coll.Count: c = 0
               For j = 1 To N
                  If j <> r Then c = c + 1: matrixA(i, c) = coll(i)(j)
               Next j
         Next 'i
         Cells(Rows.Count, 1).End(xlUp).Offset(2, 0). _
               Resize(UBound(matrixA, 1), UBound(matrixA, 2)).Value = matrixA
   Erase matrixA: Set coll = Nothing: MsgBox Space(10) & "D O N E!"
End Sub