VBA надо сделать сортировку массива. Элементы массива беруться из ячеек книги Excel.
сделал вот так

Sub mn()
Dim i, j, tmp As Integer
Dim arr(1 To 10) As Integer

For i = 1 To 10
arr(i) = Cells(i, 1)
Next i

For i = 1 To 9
For j = (i + 1) To 10
If arr(i) < arr(j) Then
tmp = arr(i)
arr(i) = arr(j)
arr(j) = tmp
End If
Next j
Next i

For i = 1 To 10
Cells(i, 2) = arr(i)
Next

End Sub
но выводятся совсем другие числа. Помогите разобраться. Плиз...