Произведение элементов матрицы, расположенных на пересечении четных строк и четных столбцов - VBA

Sub Дракин()
Dim i%, j%, n%, p&
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
n = 10
ReDim a(1 To n, 1 To n) As Long
Randomize
For i = 1 To n
  For j = 1 To n
    a(i, j) = Int(2 * Rnd) + 1
  Next
Next
Cells(1, 1).Resize(n, n) = a
 
' для зрительного восприятия выделяем э-ты красным цветом
p = 1
For i = 2 To n Step 2
  For j = 2 To n Step 2
     If a(i, j) > 0 And iMod2 = 0 And jMod2 = 0 Then
     Cells(i, j).Font.Color = vbRed
     p = p * a(i, j)
     Cells(n + 2, 7) = p
     End If
  Next
Next
Cells(n + 2, 1) = "    Произведение пересекающихся чётных элементов:  p = "
 
End Sub