Kopiere ark fra anden fil automatisk ved åbning

Hejsa

Herunder et forslag fra mig.

Sub Kopiering()
   
    Application.DisplayAlerts = False
   
    'Åbner den workbook hvorfra der skal hentes data
    Workbooks.Open ("Den fil hvor der skal kopieres data fra")
   
    'Markerer og kopierer data fra den ovenstående workbook
    Cells(2, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    'Vælger det ark hvor data skal sættes ind og finder den første ledige række nedefter i arket
    Windows("Den fil hvor der skal kopieres data til").Activate
    Cells(1, 1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste

    'Lukker den workbook ned hvor der er kopieret data fra
    Windows("Den fil hvor der skal kopieres data fra").Close
   
End Sub

Håber at den kan bruges

Med venlig hilsen

Henrik