Sub ordCol()
Dim NumCol As Integer, RangoActivo As Range
Set RangoActivo = ActiveCell.CurrentRegion
NumCol = ActiveCell.Column
With ThisWorkbook.ActiveSheet.Sort
    .SortFields.Clear
    .SetRange RangoActivo
    .Header = xlYes
    .MatchCase = False
    .SortFields.Add Key:=Cells(, NumCol), SortOn:=xlSortOnValues, Order:=xlAscending
    .Orientation = xlTopToBottom
    .Apply
End With
End Sub
