Field sort macro

[posborne]

Anyone fancy a macro challenge?

I need to create a SS that i can import/paste data into to seed a race
field - up to 120 records.
The seeding is set on previous time, and need to be ranked as follows:
lowest time at position 120 (Cell A121 with the header)
2nd lowest value at position 110 (A111)
3rd lowest at 100 etc.
When all the '10's' are completed i need to go on to the '5's', so the
13th lowest time/value at position 115 (A116), 14th lowest at 105 etc.
When the 5's are completed i need to continue the same logic with the
cells filled in the following order;
*1, *6, *2, *7, *3, *8, *4, *9 so that the lowest value is in position
9, cell A10.
I can do this easily with the =large function and then a vlookup to
pull the name data across - but cannot work for any less than 120 as
there will be gaps in the field.

if i have 87 entered then the lowest time needs to
be in position 80, then 70 etc down to 10, then to 85, 75 etc!
Anyone after the worldwide aclaim of acheiving this feat with a macro
(or otherwise)

If someone can help me with a macro to sort the times i can do the
rest!