Вычисление произведения матриц на составляющие им вектора

Sub P1()
'Порядковый номер первого элемента в массивах ноль.
'Поэтому, например, количество элементов в векторе C будет 5.
Dim A(4, 4) As Double, B(3, 3) As Double
Dim C(4) As Double, D(3) As Double
'Новые векторы:
Dim E(4) As Double, F(3) As Double
Dim i As Long, j As Long
Dim Произв As Double, Сумма As Double
Dim СрАрифмE As Double, СрАрифмF As Double
'Для удобства матрицы и вектора буду заполнять и выводить
'на разных листах Excel. У меня будет 4 листа Excel.
'Заполнение матриц и векторов.
For i = 0 To 4 Step 1
    For j = 0 To 4 Step 1
        A(i, j) = Worksheets(1).Cells(i + 1, j + 1).Value
    Next j
Next i
For i = 0 To 4 Step 1
    C(i) = Worksheets(1).Cells(i + 1, 7)
Next i
For i = 0 To 3 Step 1
    For j = 0 To 3 Step 1
        B(i, j) = Worksheets(2).Cells(i + 1, j + 1).Value
    Next j
Next i
For i = 0 To 3 Step 1
    D(i) = Worksheets(2).Cells(i + 1, 6)
Next i
'Произведение матриц на векторы.
'Каждый элемент строки матрицы умножаем на соответствующий
'элемент вектора. Произведения складываем, что будет элементом нового вектора
'(в результате умножения матрицы на вектор получится вектор).
For i = 0 To 4 Step 1
    For j = 0 To 4 Step 1
        Произв = A(i, j) * C(j)
        E(i) = E(i) + Произв
    Next j
Next i
For i = 0 To 3 Step 1
    For j = 0 To 3 Step 1
        Произв = B(i, j) * D(j)
        F(i) = F(i) + Произв
    Next j
Next i
'Выводим для наглядности новые вектора в Excel на листы 3 и 4.
For i = 0 To 4 Step 1
    Worksheets(3).Cells(i + 1, 1).Value = E(i)
Next i
For i = 0 To 3 Step 1
    Worksheets(4).Cells(i + 1, 1).Value = F(i)
Next i
'Находим среднеарифметические у новых векторов.
For i = 0 To 4 Step 1
    Сумма = Сумма + E(i)
Next i
СрАрифмE = Сумма / 5
Сумма = 0
For i = 0 To 3 Step 1
    Сумма = Сумма + F(i)
Next i
СрАрифмF = Сумма / 4
If СрАрифмE < СрАрифмF Then
    MsgBox "Минимальное среднее арифметическое у вектора E"
Else
    MsgBox "Минимальное среднее арифметическое у вектора F"
End If
End Sub