Нужна помощь!

Добрый день, всем и каждому. Помогите с решением следующей задачки.
Нужно
Поменять местами элементы 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