Найти сумму наименьших значений столбцов действительной матрицы

Sub SummaMinimumov()
    Dim i As Long, j As Long, N As Long, M As Long
    Dim arr() As Double, S As Double
    '1) Задаем размерности M и N матрицы.
    N = InputBox("Введите количество строк матрицы", "N", 5)
    M = InputBox("Введите количество столбцов матрицы", "M", 5)
    ReDim arr(N - 1) As Double
    Randomize
    Application.ScreenUpdating = False
    Cells.ClearContents
    Cells(1) = "Матрица:"
    '2) В цикле производим следующие действия:
    For i = 0 To M - 1
        For j = 0 To N - 1
            'a) Заполняем столбцы матрицы случайными числами.
            arr(j) = Rnd * 100
        Next j
        'б) Выводим значения очередного столбца на лист.
        Range(Cells(2, i + 1), Cells(N + 1, i + 1)) = Application.Transpose(arr)
        'в) Находим минимальный элемент каждого столбца.
        'г) Прибавляем значение минимального элемента к общей сумме S.
        S = S + Application.Min(arr)
    Next i
    Cells(N + 3, 1) = "Сумма наименьших элементов столбцов матрицы:"
    '3) Выводим полученную сумму S на лист.
    Cells(N + 4, 1) = S
    Application.ScreenUpdating = True
End Sub