Все элементы главной диагонали заменить наибольшим элементом всего массива - VB

Sub dratyti()
Dim a(6, 6), b(6, 6)
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
For i = 1 To 6
  For j = 1 To 6
    a(i, j) = Int(Rnd * 100) - 50
    Cells(i, j) = a(i, j)
    b(i, j) = a(i, j)
  Next j
Next i
 
'манипулирую с массивом b(i, j) для наглядности изменений, как копией
Max = b(1, 1)
For j = 1 To 6
  For i = 1 To 6
    If b(i, j) >= Max Then
      Max = b(i, j)
      End If
   Next i
Next j
 
Cells(8, 1) = "Максимальный элемент массива Max = "
Cells(8, 5) = Max
 
For i = 1 To 6
   For j = 1 To 6
       Cells(i + 9, j) = b(i, j)
    Next j
Next i
 
For i = 1 To 6
    j = i
    Cells(i + 9, j).Interior.Color = vbGreen
    Cells(i + 9, j) = Max
Next i
 
End Sub