VBA Code To Calculate When Criteria Met

In the first tab of my workbook I have a data table. In K2 down of that tab is a list of names, in D2 is their form, in I2 is the Type (there are 3 Types which start with (R), (P) or (S), in J2 is the points score associated with the Type and in H2 is the date they received the points.

For each name in the table I need it to sum the running points totals for (R), (P) & (S) Types and when they reach the minimum points thresholds below I want it to record the earliest DATE this threshold was achieved.

School Award: (R) = 20, (P) = 40, (S) = 20
Bronze: (R) = 40, (P)=80, (S)= 40
Silver: (R)= 60, (P)=120, (S)= 60
Gold: (R)= 80, (P)=160, (S) = 80

The output should look like:

Name
Form
School Award
Bronze
Silver
Gold

Anders Peter
7BN
20/9/13
15/11/13

Ball Jim
7BN
20/11/13

Carter Mark
7BN
19/9/13
8/11/13
24/11/13