Macro To Sort Data Ascending and Decending Using VBA

[Excel Fox]

Try this..

Sub ExcelFox()
    
    Dim lng As Long
    
    With Worksheets("Sheet1")
        lng = Application.Max(.Cells(.Rows.Count, "J").End(xlUp).Row, 2)
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.Range("AG2:AG" & lng), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Range("J2:J" & lng), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .Sort.SetRange .Range("J1:AG" & lng)
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
    End With
    
End Sub