Hi

See if this helps

Assuming the first of your numbers is in the cell D4

Dim rngend
rngend = Range("D4").End(xlDown).Address
Range("D4:" & rngend).Sort Key1:=Range("D4"), _
Order1:=xlDescending

Dim i As Integer
For i = 4 To 8
If Range("d" & i).Value = Range("d" & i) _
..Offset(1, 0).Value Then
Range("d" & i).End(xlDown).Offset(1, 0) = Range("d" & i)
Range("d" & i).Delete shift:=xlUp
End If
Next
End Sub

-----Original Message-----
I have a sorting issue that I need help with, I do not
know if it is possible to do this and I have tried a ton
of different things, so I decided to see if anyone out
here has an idea.

I have 5 Random numbers (ie.(1-5-4-6-6, 5-5-5-3-6)) I
want
to put these in order from high to low (sort decending),
but if the number is displayed more than once i want to
push it to the bottom or the string to look like this (6-
5-
4-6-1, 6-5-3-5-5)???

Any ideas if this is possible?
Patty

.