Mesela bende böyle kod oluştu Makro kaydet ile.
Daha sonra ilgili yerleri kısaltılıp değiştirilebilinir.

Sub Makro1()

'

' Makro Makro1

'



'

    ActiveWorkbook.Worksheets("VERİ").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("VERİ").Sort.SortFields.Add2 Key:=Range("B2:B99"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("VERİ").Sort.SortFields.Add2 Key:=Range("C2:C99"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("VERİ").Sort.SortFields.Add2 Key:=Range("D299"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("VERİ").Sort.SortFields.Add2 Key:=Range("E2:E99"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("VERİ").Sort

        .SetRange Range("A1:N99")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub