Make ranges in a sort macro change when I insert rows

I use the below macro to sort a report within my workbook, if I add rows of data at any point I have to manually change all the cell references/ranges

Is it possible to write the code in a way that automatically changes the cell references/ranges if I insert a row at any point

Sub SortRetailReport()

    ActiveSheet.Unprotect
    Range("A7:H11").Select
    Selection.Sort Key1:=Range("F8"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A18:H21").Select
    Selection.Sort Key1:=Range("F19"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A28:H32").Select
    Selection.Sort Key1:=Range("F29"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A46:H87").Select
    Selection.Sort Key1:=Range("F47"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A94:H108").Select
    Selection.Sort Key1:=Range("F95"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A115:H122").Select
    Selection.Sort Key1:=Range("F116"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A129:H132").Select
    Selection.Sort Key1:=Range("F130"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A139:H141").Select
    Selection.Sort Key1:=Range("F140"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A155:H166").Select
    Selection.Sort Key1:=Range("F156"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A173:H181").Select
    Selection.Sort Key1:=Range("F174"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A187:H194").Select
    Selection.Sort Key1:=Range("F188"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
    Range("A2").Select
End Sub