Нужна помощь

[NoVa777]

Добрый день, всем и каждому. Помогите с решением следующей задачки.
Нужно
Поменять местами элементы 3-й и 6-й строк.
Результат вывести на лист
Заранее спасибо.

Option Explicit
Sub mass_()
Dim a(1 To 7, 1 To 9) As Integer, i As Integer, j As Integer, s, max, prom
 Randomize
 max = -131
   For i = 1 To 7
   For j = 1 To 9
    a(i, j) = Int((150 + 130 + 1) * Rnd - 130)
     Cells(i, j) = a(i, j)
   If max < a(i, j) Then
   max = a(i, j)
  End If
   Next j
   Next i
   s = a(5, j) + a(7, j)
   prom = a(3, j): a(3, j) = a(6, j): a(6, j) = prom
Cells(1, 12) = "max="
Cells(1, 13) = max
Cells(2, 12) = "s="
Cells(2, 13) = s
End Sub