Excel, wie können aus einer anderen Arbeitsmappe Werte kopiert werden?

Hallo zusammen,

Folgendes Szenario: In eine bereits geöffneten Zielarbeitsmappe sollen Werte aus einer anderen hinein kopiert werden. Die andere Arbeitsmappe wird über den Dialog geöffnet. Diese hat immer unterschiedliche Namen, allerdings ist der zu kopierende Bereich immer gleich.

Wie kann ich das ganze umsetzen?

Sub WerteAusArbeitsmappeLesen()

Workbooks.Open Application.GetOpenFilename

    Workbooks(2).Activate
    Tabelle1.Activate
    Range("D1:D5").Select  
    Range("D1:D5").Copy  
    
    Workbooks(1).Activate
    Tabelle1.Select
    
    Range("A10").Select  
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False

End Sub