I'd use a pivot table (green), or possibly make a UDF (orange)
Capture.JPG
Note that row 14 is probably an error
There error checking and error handling that should be added before going to production with this
Option Explicit
Function DailyAverage(DatesIn As Range, DayIn As Date, DataIn As Range) As Variant
Dim i As Long, n As Long
Dim d As Double
For i = 1 To DatesIn.Rows.Count
If Int(DatesIn.Cells(i, 1).Value) = Int(DayIn) Then
n = n + 1
d = d + DataIn.Cells(i, 1).Value
End If
Next I
DailyAverage = d / n
End Function