Определить сумму четных кратных 8 элементов области

Sub var2()
Dim r As Integer, c As Integer, A(1 To 10, 1 To 4) As Integer
Dim sumchetn As Integer, obsum As Integer, dol As Integer
Cells.Clear
sumchetn = 0
obsum = 0
dol = 0
 
For r = 1 To 10
For c = 1 To 4
A(r, c) = Int(Rnd() * 100 - 30)
Cells(r, c).Value = A(r, c)
 
If A(r, c) Mod 2 = 0 And A(r, c) Mod 8 = 0 Then
sumchetn = sumchetn + A(r, c)
Cells(r, c).Interior.Color = RGB(255, 255, 20)
End If
 
obsum = obsum + A(r, c)
dol = (sumchetn * 100) / obsum
Next c
Next r
 
MsgBox "сумма четных кратных 8 элементов области = " & sumchetn
MsgBox "общая сумма всех элементов = " & obsum
MsgBox "доля суммы четных кратных 8 элементов области в общей сумме всех элементов = " & dol & "%"
End Sub

If A(r, c) Mod 2 = 0 And A(r, c) Mod 8 = 0 Then

If A(r, c) Mod 8 = 0 Then

If ((r-1)*4+c) Mod 2 = 0 And A(r, c) Mod 8 = 0 Then

If c Mod 2 = 0 And A(r, c) Mod 8 = 0 Then