VBA - Kopieren til andet ark

Hej alle,

Jeg har nedenstående macro, som kopiere indtastede data til et andet ark, og det fungere fint, men den lader de første linjer være tomme også bringer den kopieren ind på det andet ark - Jeg ønsker, at den simpelthen kopiere engang over på det andet ark og placere alt i toppen og dernæste, ved anvendelse af makroen igen, så skal den rykke den første kopiering ned, hvor det der kommer det nye sæt data ind - så at det hele tiden kan rykkes ned. Lige nu lader den, de øverste celler være helt tomme.

Sub Copypastemeddata()
    Worksheets("Opgørsel").Activate
    Range("A1").CurrentRegion.Copy
    Worksheets("Opsamling").Activate
    Range("A1").PasteSpecial
    Range("A1").PasteSpecial xlPasteValues
    Range("A1").PasteSpecial xlPasteColumnWidths
    Selection.Insert Shift:=xlDown
End Sub

PFT :)