Программироание VBA. Надо написать программу, в которой есть функция . Функция принимает массив . Она сортирует массив (числа ) по возрастанию . После надо вывести полученный результат на печать

Private Sub CommandButton1_Click()     Dim n As Integer, R As Range     n = Cells(1, 4).Value     Set R = Range(Cells(5, 2), Cells(4 + n, 2))     MySort R.Offset(0, -1), R End Sub Private Sub MySort(RFrom As Range, RTo As Range) ' На самом деле сто лет она тут не нужна, глупо придумано задание     RFrom.Copy RTo     RTo.Sort RTo.Range(Cells(1, 1), Cells(1, 1)) End Sub Файл MS Excel 2003 во вложении.