помогите найти ошибку в коде VBA exel !

вот задание Задание 6
Даны массивы f1, ..f8 ; d1, ..d10 .
Сформировать массив Hi, каждый элемент которого равен fi * сумму di при i = от 5 до 10 . Найти Hmin и заменить его d1.
использование function обязательно !

Sub Задание6()
Dim f(8), d(10), i, min, summ() As Integer
Dim H(10) As Integer
For i = 1 To 8
f(i) = Cells(i + 1, 1)
Next
d(1) = Cells(2, 2)
min = 9999999
For i = 1 To 8
H(i) = f(i) * summ()
If H(i) < min Then
H(i) = min
End If
Next
For i = 1 To 8
If H(i) = min Then
H(i) = d(1)
End If
Cells(i + 1, 4) = H(i)
Next
End Sub
Function summ() As Integer
Dim i As Integer
summ = 0
For i = 5 To 10
summ = summ + Cells(i + 1, 2)
Next
End Function