Samle data fra flere ark

Hej alle sammen
Jeg har tidligere fået hjælp til denne lille udfordring https://www.computerworld.dk/eksperten/spm/1024997
Og det køre egentlig som det skal, nu er det jeg gerne vil ændre det lidt men kan simpelthen ikke finde ud af at ændre VBA-koden.
Jeg vil gerne have at varerne fra de Ark der samles starter i A9 i stedet for A1.
Også vil jeg gerne have at overskriften ikke kom med. Den står i A1 til I1 i alle Arkene der skal samles.
Nogle der kan hjælpe.
Alt hjælp vil blive værdsat 
Hilsen Klaus W       
https://www.dropbox.com/s/vppcguvyyddw3ty/Bestilling%202021.xlsm?dl=0

Sub Rektangelafrundedehjørner4_Klik()
Dim wksHent As Range
    Dim wksSaml As Worksheet
    Dim sidsterk As Long
    Dim kopiomr  As Range
    Dim kolonner As Variant
    kolonner = Split(Names("HentKolonner").RefersToRange.Value2, ":")
    Set wksSaml = Worksheets(Names("SamlearkNavn").RefersToRange.Value2)
    'wksSaml.Cells.ClearContents
    For Each wksHent In Names("OpsamlingFra").RefersToRange.Cells
        sidsterk = Worksheets(wksHent.Value2).Range("A" & Worksheets(wksHent.Value2).Rows.Count).End(xlUp).Row
        'kopi dataomkr
        Set kopiomr = Worksheets(wksHent.Value2).Range(kolonner(0) & "2:" & kolonner(1) & sidsterk)
        wksSaml.Range("A" & wksSaml.Rows.Count).End(xlUp).Offset(1, 0).Resize(kopiomr.Rows.Count, kopiomr.Columns.Count).Value2 = kopiomr.Value2
        'kopi overskrift
        wksSaml.Range("A1").EntireRow.Value2 = Worksheets(wksHent.Value2).Range("A1").EntireRow.Value2
    Next
End Sub