Sub ordena()
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveWorkbook.Worksheets("Sueldos de Americano").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sueldos de Americano").Sort.SortFields.Add Key:= _
        ActiveCell.Range("A1:A1829"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sueldos de Americano").Sort
        .SetRange ActiveCell.Offset(-1, 0).Range("A1:I1830")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
