Почему процедура не работает в цикле, и как сделать процедуру для считывания матриц?

Function sumd(mas() As Variant, k As Variant)
    res = 0
    For k = 1 To 6
        res = res + mas(k, k)
    Next k
    sumd = res
End Function
Sub yes(mas() As Variant, k As Variant, l As Variant, max As Variant, e As Variant, r As Variant)
    For k = 1 To 6
            If mas(k, l) > max Then
            max = mas(k, l)
            Cells(e, l) = max
            Cells(r, l) = k
            End If
        Next k
End Sub
Sub fd()
    Dim A(6, 6), i, j, ma, mb, B(6, 6), m, n, ares, bres, z As Integer
    ma = mb = -100
    x = 8
    y = 9
    c = 18
    v = 19
    For i = 1 To 6
        For j = 1 To 6
            A(i, j) = Cells(i, j)
        Next j
    Next i
    For m = 1 To 6
        For n = 1 To 6
            B(m, n) = Cells(m + 10, n)
        Next n
    Next m
    ares = sumd(A(), i)
    bres = sumd(B(), m)
    If ares > bres Then
        For z = 1 To 6
            yes A(), i, z, ma, x, y
        Next z
    Else
    If bres > ares Then
        For z = 1 To 6
            yes B(), m, z, mb, c, v
        Next z
    End If
    End If
End Sub

ma = -100
mb = -100