sort button - how to sort large range in boxes

hello

in my attached workbook, i want to be able to sort different tables. my sort button has the following macro:

Sub PeriodTwelve()
    Range("E22:AG28").Sort Key1:=Range("R22:R28"), Order1:=xlAscending, _
        Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Range("E3") = "Sorted by: Region - Period 12"
End Sub

it's only sorting row 22:28.

i want it to sort from row 17:137 in the respective column R

if i go:
Range("E17:AG137").Sort Key1:=Range("R17:R137"), Order1:=xlAscending, _


^the above throws everything out of synch....pls help!!

thx u

Hi

You just need to include the other ranges within your sort routine

Sub PeriodTwelve()
    Range("E22:AG28").Sort Key1:=Range("R22:R28"), Order1:=xlAscending, _
                           Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
                           Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

    Range("E32:AG65").Sort Key1:=Range("R32:R65"), Order1:=xlAscending, _
                           Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
                           Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

    Range("E69:AG137").Sort Key1:=Range("R69:R137"), Order1:=xlAscending, _
                            Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
                            Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

    Range("E3") = "Sorted by: Region - Period 12"
End Sub