Need to select earliest five rows matching highest value, and next highest if not enough

Hopefully the attachment will make everything clear.

Need to select five entries that were the "first to score" values in a range.

As shown on the attachment, it is straightforward if five or more entries achieve the Highest Score, Code needs to select the first five in the bloc, and copy and paste to a different location.

But if there are less than five, code should copy and paste however many there are, then find the bloc with the Second Highest scorers.

If there are more than the balance needed, copy however many are required, starting with the first match, and copy and paste them.

If there are less than the balance, copy and paste what there is, and look for Third Highest number. Start with the first match, and copy and paste them.

Initial thought was to use a formula in Col C to establish how many entries there are for each value, (=COUNTIF(B$1:B$21,B2) copied down),

Starting at row 21 and working upward, the Code could then use that as the "offset", to measure whether each value has more than the number of rows required?
And if there are more than five rows, it copies from the Offset cell down to the Offset,offset(5,0)

    Range("B21").Select
    a = ActiveCell
    ActiveCell.Offset(ActiveCell.FormulaR1C1 = "=COUNTIF(R1C[-1]:R21C[-1],RC[-1])").Select
    If ActiveCell.Offset(ActiveCell.FormulaR1C1 = "=COUNTIF(R1C[-2]:R51C[-2],RC[-2])") >= ActiveCell.Offset(-5, 0) Then
    Range ActiveCell.Offset(ActiveCell.FormulaR1C1 = "=COUNTIF(R1C[-1]:R21C[-1],RC[-1])"),range(Range ActiveCell.Offset(ActiveCell.FormulaR1C1 = "=COUNTIF(R1C[-1]:R21C[-1],RC[-1])").Offset(5,0).select

But the "options" I would have to build in suggest I am missing something much simpler.

Any suggestions and pokinters received gratefully as ever.

Ochimus