Программный элемент Накопление

Sub Nero42()
Dim i%, j%, Q()
Dim N%, M%
N = 4: M = 3
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
[A1] = 2:  [B1] = 7:  [C1] = 3
[A2] = 4:  [B2] = 2:  [C2] = 1
[A3] = 2:  [B3] = 6:  [C3] = 8
[A4] = 1:  [B4] = 4:  [C4] = 3
Q = Sheets(1).[A1].CurrentRegion.Value
Sheets(1).[a9].Resize(UBound(Q, 1), UBound(Q, 2)) = Q
 
ReDim p(1 To M) As Integer
For j = 1 To M
    'подсвечиваю эл-ты вектора синим цветом
    p(j) = Q(2, j) * Q(4, j)
Next
Cells(N + 2, 1).Resize(1, M) = p
Range("A6:C6").Font.Color = vbBlue
 
v = 1
For j = 1 To M
  'подсвечиваю произведение эл-тов вектора p(j)красным цветом
  v = v * p(j)
Next
Cells(N + 3, 1) = v
Range("A7").Font.Color = vbRed
 
'в четвёртую строку третьего столбца копии массива Q(i, j)
'вставляю произведение эл-тов вектора p(j)
'подсвечиваю красным цветом и устанавливаю рамку для форса
Cells(12, 3).Value = v
Cells(12, 3).Font.Color = vbRed
Cells(12, 3).Borders.Weight = xlMedium
 
End Sub