Du er ikke helt præsis nok med din problemformulering
Så følgende løsning er baseret på gætteri.
Prøv fremover at forklare hvad det er du ønsker hjælp til.
Indsæt funktionen i et alm. modul
Function xSum(rng As Range, xDato As Range)
For Each c In rng
If c = xDato Then xSum = xSum + c.Offset(0, 1).Value
Next
End Function
I arket celle H2 indsætter du følgende formel, ret til aktuel antal rækker :
=xSum(A1:F20;H1)