Fordeling af data mellem flere ark ved gentagne opdatering af dataforbindelse

Jeg er igang med en makro, hvor jeg skal fordele nogle data fra et samleark til forskellige års-ark. Samlearket har en dataforbindelse til en underliggende database, hvor brugerne løbende opdatere data fra. Jeg kan ikke få to ting til at fungere:

1) Hvordan får jeg data ind, så de starter på række 6 i de ark, de skal fordeles på - jeg har nemlig en overskrift og anden info på de første linjer?

2) Hvordan får jeg overskrevet de data, der allerede er fordelt, når der sker en opdatering af dataforbindelsen og de nye data sættes ind på række 6 igen i de respektive ark?

Makroen ser sådan ud:

Dim antalRæk As Long
Dim a1 As Worksheet, ræk1 As Long, AarsArk As String
Dim ax As Worksheet, rækx As Long
Public Sub Opdater_fordel()

Sheets("Data_samlet").Select

    Set a1 = ActiveWorkbook.Sheets("Data_samlet")

Rem Antal rækker på ark1
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
   
    For ræk1 = 2 To antalRæk
        Rows(ræk1).Select
        Selection.Copy
       
Rem hent nr fra kolonne J
        AarsArk = Range("J" & ræk1)

Rem aktiver det pågældende ark
On Error GoTo fejl

        Set ax = ActiveWorkbook.Sheets(AarsArk)
        ax.Select
       
        If AarsArk <> "" Then
            Selection.ClearContents
            Range("B6").Select
            rækx = ActiveCell.SpecialCells(xlLastCell).Row
            If rækx = 1 And ax.Range("A1") <> "" Then
                rækx = rækx + 1
            End If
           
            ActiveSheet.Rows(CStr(rækx)).Select
            Selection.Insert Shift:=xlDown
            Application.CutCopyMode = False
           
        End If
        a1.Select
        Application.CutCopyMode = False
    Next ræk1
   
    Application.ScreenUpdating = True
   
    MsgBox "Opdatering gennemført"
    Exit Sub
   
fejl:
    If AarsArk <> "" Then
        MsgBox "Ark " & AarsArk & " er ikke oprettet"
    End If
   
    Application.CutCopyMode = False
    AarsArk = ""
    Resume Next
End Sub



På forhånd tak for hjælpen