Can somebody please help this newbie

Each cell in A1:A10 contains an integer in descending order i.e. the highest
in row 1.

The integer in any row may be the same as the one above or below :e.g.:-

a1 = 34
a2 = 34
a3 = 32
a4 = 31
a5 = 31
a6 = 31
a7 = 25
a8 = 20
a9 = 20
a10 = 18

I need a macro that will remove duplicates and pull up the next highest
value to end up with :-

a1=34
a2=32
a3=31
a4=25
a5=20
a6=18

Please note that I do not want to delete rows containing duplicates as I
also need to repeat the whole process on B1:B10 and up to G1:G10 - all of
which contain
other (i.e. different) integers. Consequently, I would like to include that
feature in the macro.


Many thanks

George