Вычисление матрицы C как суммы матриц A и B по формуле

Sub P1()
'Возьму произвольные размеры матриц (какие придумаю).
'Чтобы можно было умножить одну матрицу на другую,
'нужно, чтобы количество столбцов у первой матрицы
'было равно количеству строк у второй матрицы.
'Результатом умножения одной матрицы на другую является третья матрица.
Dim A(1 To 3, 1 To 5) As Double
Dim B(1 To 5, 1 To 4) As Double
Dim C(1 To 3, 1 To 4) As Double
Dim i As Long, j As Long, k As Long
Dim Сумма As Double
'Заполню матрицы с разных листов Excel (чтобы меньше рассчитывать).
For i = 1 To 3 Step 1
    For j = 1 To 5 Step 1
        A(i, j) = Worksheets(1).Cells(i, j).Value
    Next j
Next i
For i = 1 To 5 Step 1
    For j = 1 To 4 Step 1
        B(i, j) = Worksheets(2).Cells(i, j).Value
    Next j
Next i
'Собственно решение задачи: перемножение матриц.
'Смысл перемножения: каждая строка первой матрицы
'умножается на каждый столбец второй матрицы.
For i = 1 To 3 Step 1
    For j = 1 To 4 Step 1
        For k = 1 To 5 Step 1
            Сумма = Сумма + A(i, k) * B(k, j)
        Next k
        C(i, j) = Сумма
        Сумма = 0
    Next j
Next i
'Выводим результирующую матрицу на третий лист Excel.
For i = 1 To 3 Step 1
    For j = 1 To 4 Step 1
        Worksheets(3).Cells(i, j).Value = C(i, j)
    Next j
Next i
End Sub