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

Sub sort()

N = ActiveSheet.Range("A65536").End(xlUp).Row ‘определим № последней строки

nmin = 1

Do While nmin lt; N

Min = Cells(nmin, 1)

For i = nmin To N

    If Cells(i, 1) lt; 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