Remove superfluous code from sort code

[AndyEd]

I'm trying to sort a column where there is a dynamic list.

I've tried numerous ways via the internet, but can't seem to get them to work. I've run this via a Macro but can't seem to clean it up.
Can anyone please help and explain how it works?

    Columns("C:C").Select
    ActiveWorkbook.Worksheets("Validation sheet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Validation sheet").Sort.SortFields.Add2 Key:=range _
        ("C2:C36"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

    With ActiveWorkbook.Worksheets("Validation sheet").Sort
        .SetRange range("C1:C36")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[RudRud]

Is it something like this? sort based in column C?

Option Explicit
Sub test()
Dim ws As Worksheet
Set ws = Sheets("Validation Sheet")

With ws
    .[a2].Sort Key1:=.Range("c2"), order1:=xlAscending, Header:=xlYes
End With

End Sub

 

[AndyEd]

Thank you kind sir.

 

[RudRud]

Thank you kind sir.

Glad to assist, If you have any further questions, please don't hesitate to ask/share with us