Macro To Sort Data Ascending and Decending Using VBA

[Excel Fox]

No that's not what you need to do. Here you go...

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

[olives]

No that's not what you need to do. Here you go...

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

Wow! Amazing! Thanks!