Матрицы: Найти номер столбца с максимальной суммой элементов - VBA

Sub www()
    Dim A(), i&, n&, mx&, i1&, s&, m&
    Dim Rng As Range
    Cells.Clear
    n = InputBox("Введите к-во строк")
    m = InputBox("Введите к-во столцов")
    Set Rng = Range(Cells(1, 1), Cells(n, m))
    Rng.Formula = "=INT(RAND()*10)": Rng.Value = Rng.Value
    A = Rng.Value
    For i = LBound(A, 2) To UBound(A, 2)
        s = Application.Sum(Application.Index(A, 0, i))
        Cells(n + 1, i) = s
        If s > mx Then mx = s: i1 = i
    Next
    Range(Cells(1, i1), Cells(n, i1)).Interior.ColorIndex = 3
End Sub