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