Определить массив М, каждый элемент которого равен сумме соответствующих элементов массивов R и Q

If P<4 then
  worksheets("Результат").Cells(1, 4).value = P
elseif P <=6 then
  worksheets("Результат").Cells(3, 4).value = P
elseif P <=8 then
  worksheets("Результат").Cells(5, 4).value = P
else
  worksheets("Результат").Cells(7, 4).value = P
end if

Public Sub КонтрольнаяРабота()
Dim R(0 To 9)
Dim Q(0 To 9)
Dim M(0 To 9)
Dim P
Set Значение = Sheets("Значение")
Set Результат = Sheets("Результат")
Set Итоги = Sheets("Итоги")
    ' Задание 1 - Запись в массивы R и Q
        For I = 0 To 9
        R(I) = Worksheets("Значение").Cells(I + 2, 6).Value
        Q(I) = Worksheets("Значение").Cells(I + 4, 3).Value
        Next I
    ' Задание 2 - Определение массива М
        For I = 0 To 9
            M(I) = R(I) + Q(I)
        Next I
    ' Задание 3 - Вывод значения элементов массива М используя диалоговое окно
        massiv = ""
        For I = 0 To 8
            massiv = massiv & M(I) & "; "
        Next I
        massiv = massiv & M(9)
        MsgBox massiv
    ' Задание 4. Вычислим произведение элементов массива М, обозначим его как P
        P = 1
        For I = 0 To 9
            P = P * M(I)
        Next I
    ' Задание 5. Вывод значения переменной P
        MsgBox "Произведение элементов массива равно " & P
    ' Задание 6. Анализ переменной P
        If P < 4 Then
            Worksheets("Результат").Cells(1, 4).Value = P
        ElseIf P >= 4 And P <= 6 Then
            Worksheets("Результат").Cells(3, 4).Value = P
        ElseIf P >= 6 And P <= 8 Then
            Worksheets("Результат").Cells(5, 4).Value = P
        Else
            Worksheets("Результат").Cells(7, 4).Value = P
     ' Задание 7. Анализ значения ячейки C5 листа Результат
        If Val(Worksheets("Результат").Cells(5, 3).Value) < 19 Then
            For I = 0 To 9
                Worksheets("Итоги").Cells(I + 3, 7).Value = 2 * R(I)
            Next I
        Else
            For I = 0 To 9
                Worksheets("Итоги").Celss(I + 5, 8).Value = 2 * R(I)
            Next I
        End If
    End If
End Sub