Slight Tweak To Recorded Macro

[Dazzawm]

I have recorded a sort macro. What I need to do is change where it says range C5880:C5898, AK5880:AK5898 etc. Can it be selected range of rows I choose as they will be different each time I use? Thanks

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 key:=Range( _
        "C5880:C5898"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 key:=Range( _
        "AK5880:AK5898"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 key:=Range( _
        "AF5880:AF5898"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A5880:AY5898")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Joe4]

Not sure where the column A sort comes into it though as I didn't choose that in my recorded macro?

Not sure what you are talking. Are you talking about rng4?

Note in your original code:

     .SetRange Range("A5880:AY5898")

Note in my code (the replacement for this):

    Set rng4 = Range("A" & fr & ":AY" & lr)

then

        .SetRange rng4

This is the ENTIRE range you want to sort (that is necessary for any sorting!).
Note it is columns "A" to "AY", not just column "A"!

 

[Dazzawm]

Not sure what you are talking. Are you talking about rng4?

Note in your original code:

     .SetRange Range("A5880:AY5898")

Note in my code (the replacement for this):

    Set rng4 = Range("A" & fr & ":AY" & lr)

then

        .SetRange rng4

This is the ENTIRE range you want to sort (that is necessary for any sorting!).
Note it is columns "A" to "AY", not just column "A"!

Understood, thanks squire.