Excel VBA: 4 Bereiche kopieren und in einer anderen Datei wieder in diese Bereiche kopieren

Computer: Software & Programmierung Office Software
#1

Hallo zusammen,

ich hoffe das mir jemand helfen kann.
Leider kommt ich hier nicht mehr weiter.

Ich will 4 verschiedene Bereiche in einer Tabelle auswählen und kopieren.
Hab ich auch hinbekommen.

in einer anderen Datei will ich dann diese Bereiche in den selben Spalten wieder einfügen.

Hier ist mein Problem das er die 4 Spalten die er kopiert hat alle nebeneinander einfügt in 4 Spalten der anderen Datei und nicht in den selben Spalten wie kopiert worden sind.

Hier mein Code dazu:

Sub aktualisieren_Test_2()

Application.DisplayAlerts = False

Workbooks.Open Filename:= _
    "Link_1" _
    , UpdateLinks:=3
    
Range("F7:F10005,P7:P10005,W7:W10005,AB7:AB10005").Copy

Windows("Link_2").Activate

Range("F7:F10005").Select

'Einfügen nur Werte
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
Windows("Link_1").Close

End Sub

Hier ist mein Problem das beim einfügen der Werte in der anderen Tabelle einer Fehlermeldung erscheint:
„Laufzeitfehler: 1004“
„Bei einer Markierung von nicht angrenzenden Zellen ist die Ausführung dieses Befehls nicht möglich.“

Hier mein Code dazu:

Sub aktualisieren_Test_2()

Application.DisplayAlerts = False

Workbooks.Open Filename:= _
    "Link_1" _
    , UpdateLinks:=3
    
Range("F7:F10005,P7:P10005,W7:W10005,AB7:AB10005").Copy

Windows("Link_2").Activate

Range("F7:F10005,P7:P10005,W7:W10005,AB7:AB10005").Select

'Einfügen nur Werte
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
Windows("Link_1").Close

End Sub

Wäre super wenn mir hier jemand eine Lösung hat ohne das ich jeden Bereich extra markieren muss um nicht immer die Datei hin und her wechseln zu müssen.

Grüße Sumpfbiber