VBA code to find highest and 2nd highest number based in criteria

Please note firstly I've post this on different forum but didn't get any solution after many hours of waiting, so can someone help me out here please. Where I've posted: here and here and here

Problem:
I need the VBA code to find the highest and 2nd highest value in a column based on criteria in another column. So for example:
Type | Time
RaceA| 4.5
RaceB| 5.5
RaceA| 6.2
RaceA| 3.1
RaceB| 2.1
I need the VBA code to be able to find the highest and 2nd highest Time for RaceA and highlight them in different color. So in the example above, the code should loop through the time based on Type and highlight 3.1 as highest and 4.5 as second highest
I need the vba sub instead of worksheet function.
Can anyone help pls?

Hi thanks for the code. I tried to run it just now and it does work. But I've seen that you have also sorted RaceB, however I only want RaceA to be sorted and is there a way I can add a 3rd highest time?

As you can see from the attachment, I've attach my worksheet
Sorry if I didn't made it clear at start