Найти столбец с наименьшей суммой элементов

Sub P1()
'С помощью Dim создаём в оперативной памяти компьютера
'поименованную область (матрицу) A.
'Double - означает, что в матрице могут быть как целые, так и дробные числа.
'Размер матрицы мы заранее не знаем, поэтому скобки пустые.
'В дальнейшем надо будет обязательно задать размер матрицы (без этого нельзя
'будет с ней работать).
Dim A() As Double
'С помощью Dim создаём в оперативной памяти компьютера
'поименованные области (переменные) m, n.
'Integer - означает, что в переменных могут быть только целые числа.
Dim m As Integer, n As Integer
Dim i As Integer, j As Integer
Dim Сумма As Double, Min As Double, Номер As Integer
'С помощью InputBox помещаем в переменные числа.
m = InputBox("Введите количество строк матрицы (не более 6).")
n = InputBox("Введите количество столбцов матрицы (не более 6).")
'Раз в условии заострено внимание на размерности матрицы, то будем
'проверять размерность матрицы.
'If ... Then ... End If - используется для выбора действия.
If m > 6 Or n > 6 Then
    'С помощью MsgBox выводим на монитор сообщение.
    MsgBox "Размер матрицы не соответствует заданию." & vbCr & _
        "Программа будет завершена"
    'Выходим из программы.
    Exit Sub
End If
'Чтобы матрица начала функционировать, устанавливаем её размер с помощью Redim.
'По умолчанию порядковый номер первого элемента матрицы равен нулю.
'Для удобства сделаем (с помощью 1 To), чтобы порядковый номер
'первого элемента матрицы был равен 1.
ReDim A(1 To m, 1 To n)
'Заполняем матрицу числами.
'For ... To ... Step ... Next - называется циклом и используется
'для выполнения одного и того же действия заданное количество раз.
For i = 1 To m Step 1
    For j = 1 To n Step 1
        A(i, j) = InputBox("Введите A(" & i & ", " & j & ")")
    Next j
Next i
'Анализ матрицы.
For i = 1 To n Step 1
    For j = 1 To m Step 1
        Сумма = Сумма + A(j, i)
    Next j
    'If ... Then ... ElseIf ... End If - используется для выбора действия.
    'Определяем максимальную сумму в столбцах.
    'Сначала за минимальную сумму принимаем сумму в первом столбце
    '(чтобы было, от чего отталкиваться).
    If i = 1 Then
        Min = Сумма
        Номер = 1
    'Если сумма в следующем столбце меньше числа, находящегося в переменной Min, то
    ElseIf Сумма < Min Then
        'в переменную Min помещаем сумму из этого столбца.
        Min = Сумма
        Номер = i
    End If
    'Очищаем переменную Сумма, т.к. она снова будет использована в следующем витке цикла.
    Сумма = 0
Next i
'Очистка активного листа (тот который отображается на мониторе).
Cells.Clear
'Выводим матрицу в Excel.
For i = 1 To m Step 1
    For j = 1 To n Step 1
        Cells(i, j) = A(i, j)
    Next j
Next i
'Выводим на монитор сообщение с номером столбца.
MsgBox Номер
End Sub