ordenar columna de forma automática

Hola neceo:

Si nombrás el rango a ordenar como "Rango_a_Odenar" (ya sea toda una
columna), el siguiente código en el módulo de la hoja ordenará los
datos cada vez que haya un ingreso dentro del rango. Cambiando Order1 y
Header se puede determinar el tipo de orden (ascendente en este caso) y
si el rango incluye o el encabezado.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Rango_a_Ordenar")) Is Nothing Then
_
Range("Rango_a_Ordenar").Sort _
Key1:=Range("Rango_a_Ordenar").Cells(1, 1), _
Order1:=xlAscending, Header:=xlYes
End Sub

Por si no sabés como incluir el código es:
Alt+F11, doble click en el nombre de la hoja y pegar el código en
el editor.

Saludos: Mariano