Deseo ordenar una hoja completa por columna A en macro

Te dejo la macro que necesitas. Solo debes ajustar el nombre de tu hoja.

Sub MacroOrdena()
'x Elsamatilde
'definir la hoja y rango utilizado
ho = "Resumen"
rgo = ActiveSheet.UsedRange.Address
    Sheets(ho).Select
    Cells.Select
    ActiveWorkbook.Worksheets(ho).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(ho).Sort.SortFields.Add Key:=Range("A:A"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(ho).Sort
        .SetRange Range(rgo)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sdos - no olvides valorar la respuesta.