Werte aus geöffneter Arbeitsmappe

Hallo im Forum,

Möchte gerne aus einer geöffneten Arbeitsmappe Werte in eine andere Mappe einfügen.

Die Arbeitsmappe zum kopieren heißt "Verlaufsdaten" und hat einen Sheets mit den komischen Namen "Ark1".

Bis jetzt habe ich den Sheets "Ark1" immer in meine Arbeitsmappe kopiert.

Es wäre super wenn ich den Sheets "Ark1" nicht immer in meine Arbeitsmappe kopieren müsste.

Könnte mir dazu jemand helfen ?

Danke
SG, Heinz


Der Code Dazu.

Option Explicit

Sub Jänner_einfuegen()

    Dim mySheet As Worksheet

Sheets("Jänner").Unprotect
    
    Application.DisplayAlerts = False
    On Error Resume Next
    Set mySheet = Sheets("Ark1")
    On Error GoTo 0
    
    If Not mySheet Is Nothing Then

Else
MsgBox "Sheets Ark1!  nicht vorhanden"
Exit Sub

End If


Sheets("Ark1").Range("B3:B33").Copy 'PV-Erzeugung
Sheets("Jänner").Range("B3:B33").PasteSpecial Paste:=xlValues

Sheets("Ark1").Range("C3:C33").Copy 'Einspeisung
Sheets("Jänner").Range("E3:E33").PasteSpecial Paste:=xlValues

Sheets("Ark1").Range("E3:E33").Copy 'Netzbezug
Sheets("Jänner").Range("H3:H33").PasteSpecial Paste:=xlValues

Sheets("Ark1").Range("D3:D33").Copy 'Verbraucherlast
Sheets("Jänner").Range("K3:K33").PasteSpecial Paste:=xlValues

Application.CutCopyMode = False 'Zwischenspeicher löschen

Sheets("Jänner").Protect

Worksheets("Ark1").Delete

Sheets("Jänner").Activate

Application.DisplayAlerts = True
End Sub