Sub SortCopy()
Dim lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
With Sheets("Sheet1").Sort
.SetRange Range("A1:A5")
'or this .SetRange Range("A1:A" & lastrow)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1:A5").Cut Destination:=Range("A6")
'or this Range("A1:A" & lastrow).Cut Destination:=Range("A" & lastrow + 1)
Application.ScreenUpdating = True
End Sub
Try this...Oh man, i wrote that wrong, sorry, what i meant to say was
A1, B1, C1, D1, E1 have random numbers, I want new results in F1, G1, H1, I1, J1. Example: 5,46,13,23,35 = 5,13,23,35,46