VBA - Sumowanie wartości w pętli (na wzór wyszukaj pionowo)

Witajcie, proszę o pomoc.

Mam napisaną funkcję, na wzór wyszukaj pionowo tyle, że chcę zrobić sumę wartości liczbowych w określonej kolumnie dla każdego wystąpienia szukanej wartości.
Mam problem, jak zrobić to sumowanie w pętli. Próbuje na 100 sposobów, ale nie mogę do tego dojść:

Function SumujWszystkieWartosci(Szukana As String, Zakres As Range, NrKolumny As Integer) As String

Dim i As Integer


For i = 1 To Zakres.Rows.Count
    If Zakres.Cells(i, 1) = Szukana Then
    
       SumujWszystkieWartosci = SumujWszystkieWartosciWorksheetFunction.Sum(SumujWszystkieWartosci, Zakres.Cells(i, NrKolumny))  */problem jak zrobić sumę w pętli
    
    End If
    
    
Next i

End Function

Dziękuję za pomoc

Public Function SumujWszystkieWartosci(Szukana As String, Zakres As Range) As Long
Dim r As Range

For Each r In Zakres
    If r.Value = Szukana Then
        SumujWszystkieWartosci = SumujWszystkieWartosci + r.Value
    End If
Next

End Function

Sub test()
Debug.Print SumujWszystkieWartosci("7", Range("A1:d18"))
End Sub