Rangering med VBA og Navneområde

Hejsa

Jeg har følgende VBA-kode som jeg gerne vil have ændret lidt.
---
Sub TestAfRangering()
'
' TestAfRangering Makro

    Application.Goto Reference:="Produkt_1"
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("F4:F13"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
        .SetRange Range("A3:F13")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("K16").Select
End Sub
---
I stedet for at den vælger F4:F13 vil jeg gerne have et foruddefineret område lige som ved Produkt_1. Årsagen til det er jeg gerne vil sikre min kode, så der tages højde for ændringer (sletning og tilføjelse af rækker og kolonner i tabellen). Hvad skal man så skrive?