В выделенном диапазоне найти сумму чисел кратных 7

Option Explicit
Sub Книга3()
Dim a1, b1, c1, d1 As Long
Dim a2, b2, c2, d2 As String
Dim a3, b3, c3, d3 As Long
Dim a4, b4, c4, d4 As Long
If Cells(2, 1) Mod 7 = 0 Then
        a1 = Cells(2, 1)
        Else: a1 = 0
End If
If Cells(3, 1) Mod 7 = 0 Then
        b1 = Cells(3, 1)
        Else: b1 = 0
End If
If Cells(4, 1) Mod 7 = 0 Then
        c1 = Cells(4, 1)
        Else: c1 = 0
End If
If Cells(5, 1) Mod 7 = 0 Then
        d1 = Cells(5, 1)
        Else: d1 = 0
End If
If Cells(2, 2) Mod 7 = 0 Then
        a2 = Cells(2, 2)
        Else: a2 = 0
End If
If Cells(3, 2) Mod 7 = 0 Then
        b2 = Cells(3, 2)
        Else: b2 = 0
End If
If Cells(4, 2) Mod 7 = 0 Then
        c2 = Cells(4, 2)
        Else: c2 = 0
End If
If Cells(5, 2) Mod 7 = 0 Then
        d2 = Cells(5, 2)
        Else: d2 = 0
End If
If Cells(2, 3) Mod 7 = 0 Then
        a3 = Cells(2, 3)
        Else: a3 = 0
End If
If Cells(3, 3) Mod 7 = 0 Then
        b3 = Cells(3, 3)
        Else: b3 = 0
End If
If Cells(4, 3) Mod 7 = 0 Then
        c3 = Cells(4, 3)
        Else: c3 = 0
End If
If Cells(5, 3) Mod 7 = 0 Then
        d3 = Cells(5, 3)
        Else: d3 = 0
End If
If Cells(2, 4) Mod 7 = 0 Then
        a4 = Cells(2, 4)
        Else: a4 = 0
End If
If Cells(3, 4) Mod 7 = 0 Then
        b4 = Cells(3, 4)
        Else: b4 = 0
End If
If Cells(4, 4) Mod 7 = 0 Then
        c4 = Cells(4, 4)
        Else: c4 = 0
End If
If Cells(5, 4) Mod 7 = 0 Then
        d4 = Cells(5, 4)
        Else: d4 = 0
End If
 
End Sub

Sub Книга3()
''матрица значений 5Х5
Dim a1 As Long
Dim stroka7 As String
 
Dim r, c
For r = 1 To 4
For c = 1 To 5
If IsNumeric(Cells(r, c)) Then
If Cells(r, c) Mod 7 = 0 Then
a1 = Cells(r, c) + a1
stroka7 = stroka7 & ", " & Cells(r, c)
End If
End If
Next c
Next r
 
If Len(stroka7) = 0 Then
MsgBox "нет чисел кратных 7"
Else
MsgBox "числа, кратные 7:" & VBA.vbCrLf & Mid(stroka7, 3) & VBA.vbCrLf & _
" их сумма=" & a1
End If
 
End Sub