VBA CODE sorting any range of data

[kanelones]

Hi Guys, can you help me writing a VBA code line.

Need to execute a macro, where gives me the option to sort any range of data to my choice , after i select it ,instead pressing alt+h+v,etc, etc..

Maybe this code, could ask me from witch column i want to sort the range, or I it run it for a fixed column, I have certain data ranges , that always need to be sorted by the same column.

Can it be done ?

Thanks!

 

[Yongle]

I recorded a macro and added a few variables, and made the data range general
- assumes that there is nothing in row above the headers

Adapting:
To learn what you need to do, record a few macros when you select sort parameters manually and learn what changes need to be made
- adapt it to give you the range of choices you need

To test:
- Put code in a standard module
- Select any cell in your data range
- Run the macro
- It sorts on that column

Sub SortData()
    
    Dim cel As Range: Set cel = Selection.Cells(1)
    Dim rng As Range: Set rng = cel.CurrentRegion
    
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add2 Key:=cel, _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange rng
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[kanelones]

Thank You!