Private Sub Worksheet_Change(ByVal R As Range)
If Intersect(R, [A5:C13]) Is Nothing Then Exit Sub
Dim L As Byte, C As Byte
[A15:C15] = ""
For L = 5 To 13
For C = 1 To 3
If Cells(L, C) = Application.Min(Cells(L, 1).Resize(1, 3)) Then Cells(15, C) = Cells(15, C) + Cells(L, C)
Next
Next
End Sub