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 во вложении.
Скачать вложение Excel (XLS)