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

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

CLS
RANDOMIZE TIMER
 
DIM x(6, 6) AS LONG
 
FOR i = 1 TO 6
FOR j = 1 TO 6
   x(i, j) = 18 * RND - 9
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
max = x(1, 1)
 
FOR i = 1 TO 6
FOR j = 1 TO 6
   IF max < x(i, j) THEN max = x(i, j)
NEXT j, i
 
PRINT "MAX ="; max
 
FOR i = 1 TO 6
   x(i, i) = max
NEXT i
PRINT
 
FOR i = 1 TO 6
FOR j = 1 TO 6
   PRINT x(i, j);
NEXT: PRINT
NEXT