Visual Basic - Dudas de como ordenar datos de una columna d excel

Hola a todos;
Mi duda es muy basica, yo es la primera vez que trabajo con vb, necesito ordenar de menor a mayor, los datos de una columna de excel que tienen (A1 hasta A18) resultados.

Necesitaria el codigo, ya que lo que encuentro por internet es demasiado complicaso de entender para quien no sabe nada de vb.

Un saludo y gracias

Range("A1:A18").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

La próxima vez que tengas una duda sobre Excel, te creas una macro y después la editas y copias el código, que es lo que he hecho yo.

utilizo el codigo para ordenar desde vb6, pero solo lo hace la primera vez, para que lo vuelva a hacer debo reiniciar el programa.

como se refresca dicha funcion.

Amigos, yo estoy haciendo una aplicación en Excel con VBA.
Tengo un botón en un formulario para probar y me funcionó una rutina que hice

Private Sub CmdOrdenar_Click()
a = 2 ' inicio en la fila 2
While Hoja7.Cells(a, 1) <> "" ' recorro los datos hasta que este vacía
a = a + 1
Wend
a = a - 1 ' le resto uno para evitar una selección en blanco

' ORDENA POR COLUMNA
'Hoja7.Range(Cells(a, 1), Cells(2, 1)).Select ' selecciono el rango
'Range(Cells(a, 1), Cells(a, 1)).Sort Key1:=Cells(a, 1) ' ordeno el rango en excel

' Ahora que esta ordenada lo cargo en un combobox o lista, etc

'Idem al anterior ejemplo pero para dos columnas
' ORDENA DOS COLUMNAS (ordeno los datos de la columna 4 y 5)
'Hoja7.Range(Cells(a, 4), Cells(2, 5)).Select
'Range(Cells(a, 4), Cells(a, 4)).Sort Key1:=Cells(a, 4)

End Sub

Espero les sirva.

Pequeña corrección

ORDENA POR COLUMNA
'Range(Cells(a, 1), Cells(2, 1)).Sort Key1:=Cells(a, 1) ' ordeno el rango en excel


'Idem al anterior ejemplo pero para dos columnas
'Range(Cells(a, 4), Cells(2, 4)).Sort Key1:=Cells(a, 4)