data fra flere ark i et.

Hjælp.
Jeg bruger dette modul til, at samle data fra flere ark i ét ark.
Det virker fint, men jeg vill gerne at modulet først satte tekst ind efter celle A6 således at man kunne have en overskrift på arket også. Som det er nu, sætte den data ind fra celle A1.

Hvad er forkert i dette modul:
Public Sub HentArk()
    Dim Ws As Worksheet, data As Variant
    Worksheets("SamleArk").Cells.ClearContents

    For Each Ws In ThisWorkbook.Sheets
        If Ws.Name <> "SamleArk" Then
            Ws.Range("A6:I500").Copy Worksheets("SamleArk").Range("A65536").End(xlUp).Offset(1, 0)
        End If
    Next
    Range("A6:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp
End Sub