Try

Option Base 1

Function sortme(myrange)
Application.Volatile
n = myrange.Count
ReDim myarray(n)
For j = 1 To n
myarray(j) = myrange(j)
Next
For k = 1 To n - 1
For j = k To n
If myarray(j) < myarray(k) Then
holdme = myarray(j)
myarray(j) = myarray(k)
myarray(k) = holdme
End If
Next j
Next k
sortme = myarray
End Function

Need help with VBA? See David McRitchie's site on "getting started" with
VBA
http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"Bernard Liengme" wrote in message
...
One could make a UDF (user defined function) Are you ready to explore VBA?
best wishes

--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"scidoc" wrote in message
...
I have a row of 6 random ordered numbers. I with to find out how to
automatically copy them into another row and have them in Ascending
numerical
order. I'm at a loss to figure out what function can do this.

Example:
Input 9 4 56 8 2 27

Output 2 4 8 9 27 56

Thanks, Scidoc