В рекурсивной функции высчитать сумму элементов в массиве

Public Type tovar
num As Integer      'номер
city As String      'город
product As String   'товар
time As Date        'время доставки
cost As Currency    'затраты
End Type
Function sumcost(n As Integer, tovarinfo() As tovar) As Currency
If n > 0 Then
sumcost = tovarinfo(n).cost + sumcost(tovarinfo(n - 1).cost)
End If
End Function
Sub OE()
Dim n As Integer 'число строк в БД tovarinfo
Dim tovarinfo() As tovar 'динамический массив,объявление БД tovarinfo
Dim i As Integer 'вспомогательная переменная счетчик для цикла
 
n = 10 'число строк 10
ReDim tovarinfo(1 To n) 'БД tovarinfo содержит 10 строк
'Заполнение БД tovarinfo значениями из таблицы с Лист1
For i = 1 To n
tovarinfo(i).num = Cells(1 + i, 1)
tovarinfo(i).city = Cells(1 + i, 2)
tovarinfo(i).product = Cells(1 + i, 3)
tovarinfo(i).time = Cells(1 + i, 4)
tovarinfo(i).cost = Cells(1 + i, 5)
Next
 
 
Sheets("Лист1").Select
 
Cells(26, 5) = sumcost(n, tovarinfo(n))
End Sub

Function sumcost(n As Integer, tovarinfo() As tovar) As Currency
If n > 0 Then
    sumcost = tovarinfo(n).cost + sumcost(n - 1, tovarinfo)
End If
End Function
 
'...
Cells(26, 5) = sumcost(n, tovarinfo)