Assuming your data is in cells A2:C7, put the following formula in
another column of row 2, then copy it down.
=SUMPRODUCT(--(A$2:A$7=A2),--(B$2:B$7="Average"),--(C$2:C$7))

If you need it in VBA, it's easy to convert.

Hth,
Merjet