Замена переменной в вба,пожалуйста - VBA

Sub salander_3()
Dim a(1 To 9, 1 To 9) As Integer, i As Integer, j As Integer, prom, max, min, s As Integer, strmin, strmax
Range("a1:j13").ClearContents
Randomize
s = 0
min = a(1, 1)
max = a(1, 9)
For i = 1 To 9
For j = 1 To 9
    a(i, j) = (501 * Rnd - 200)
    Cells(i, j) = a(i, j)
    If min > a(i, 1) Then
        min = a(i, 1)
        strmin = i
    End If
    If max < a(i, 9) Then
        max = a(i, 9)
        strmax = i
    End If
Next j
s = s + a(i, 5)
Next i
prom = a(strmin, 1)
a(strmin, 1) = a(strmax, 9)
a(strmax, 9) = prom
Range("a1:i9").Interior.Color = RGB(40, 165, 75)
Cells(11, 9).Interior.Color = RGB(190, 70, 60)
Cells(11, 1).Interior.Color = RGB(190, 70, 60)
Cells(11, 5).Interior.Color = RGB(190, 70, 60)
Cells(11, 9) = "max"
Cells(12, 9) = max
Cells(11, 1) = "min"
Cells(12, 1) = min
Cells(12, 5) = s
Cells(11, 5) = "summ 5"
End Sub