Помогите написать программку сортировки выбором на VBA, чтоб она выводила числа

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