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

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