Помогите написать программу сортировки выбором на VBA, чтобы она выводила числа от мин до макс в ячейки: 44, 55, 12, 42, 94, 18, 6, 67

Sub sort() N = ActiveSheet.Range("A65536").End(xlUp).Row ‘определим № последней строки nmin = 1 Do While nmin < N Min = Cells(nmin, 1) For i = nmin To N     If Cells(i, 1) < Min Then             Min = Cells(i, 1)             Cells(i, 1) = Cells(nmin, 1)             Cells(nmin, 1) = Min     End If Next i nmin = nmin + 1 Loop End Sub