哪位帮我写个把数字按大小排列的VBA代码

A1 到A6分别为数字 2 7 5 6 9 3，我想在A7到A12里由左到右安从小到大排列，2 3 5 6 7 9 求大神写个代码

执行如下VBA程序即可：

Sub PaiXu()
Dim arr(1 To 6), temp
Dim i, n
For i = 1 To 6
arr(i) = Range("A" & i).Value
Next i
For n = 6 To 2 Step -1
For i = 2 To n
If arr(i) < arr(i - 1) Then
temp = arr(i)
arr(i) = arr(i - 1)
arr(i - 1) = temp
End If
Next i
Next n
For i = 1 To 6
Range("A" & i + 6).Value = arr(i)
Next i
End Sub

搜一下：哪位帮我写个把数字按大小排列的VBA代码