Mein Problem besteht darin, dass bei meinem VBA Code knapp eine Minute vergeht bis alle Wert in Mappe 2 kopiert werden und das ich es nicht hinbekomme, dass das Tabellenblatt in Mappe 2 eingefügt wird. Momentan wird das Tabellenblatt nur in der aktiven Mappe 1.xlsx kopiert. Und hier komm ich einfach nicht weiter. Daher meine bitte um Hilfe von einem VBA Experten.

Muss dich also enttäuschen suche niemanden der für mich die ganze Arbeit erledigt.

Private Sub CommandButton1_Click()
    
Dim Quelle  As Worksheet
Dim Ziel  As Worksheet

    Set Quelle = ThisWorkbook.Worksheets("Tabelle1")
    Set Ziel = Workbooks("Mappe2.xlsx").Worksheets("DB")

    Quelle.Range("D4").Copy
    Ziel.Range("A" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Quelle.Range("D6").Copy
    Ziel.Range("B" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D8").Copy
    Ziel.Range("C" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D10").Copy
    Ziel.Range("D" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D12").Copy
    Ziel.Range("E" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D14").Copy
    Ziel.Range("F" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("H4").Copy
    Ziel.Range("G" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("L30").Copy
    Ziel.Range("H" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("L32").Copy
    Ziel.Range("I" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("L34").Copy
    Ziel.Range("J" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("L36").Copy
    Ziel.Range("K" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("N30").Copy
    Ziel.Range("L" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("N32").Copy
    Ziel.Range("M" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("N34").Copy
    Ziel.Range("N" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D18").Copy
    Ziel.Range("O" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D20").Copy
    Ziel.Range("P" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D22").Copy
    Ziel.Range("Q" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D24").Copy
    Ziel.Range("R" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("H18").Copy
    Ziel.Range("S" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("H20").Copy
    Ziel.Range("T" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("H22").Copy
    Ziel.Range("U" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("H24").Copy
    Ziel.Range("V" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D28").Copy
    Ziel.Range("W" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D30").Copy
    Ziel.Range("X" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D32").Copy
    Ziel.Range("Y" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
        Quelle.Range("D34").Copy
    Ziel.Range("Z" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H28").Copy
    Ziel.Range("AA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H30").Copy
    Ziel.Range("AB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("D38").Copy
    Ziel.Range("AC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("D40").Copy
    Ziel.Range("AD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("D42").Copy
    Ziel.Range("AE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("D44").Copy
    Ziel.Range("AF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("D46").Copy
    Ziel.Range("AG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H38").Copy
    Ziel.Range("AH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H40").Copy
    Ziel.Range("AI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H42").Copy
    Ziel.Range("AJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H44").Copy
    Ziel.Range("AK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H52").Copy
    Ziel.Range("AL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("I52").Copy
    Ziel.Range("AM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H53").Copy
    Ziel.Range("AN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("I53").Copy
    Ziel.Range("AO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H54").Copy
    Ziel.Range("AP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("I54").Copy
    Ziel.Range("AQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H55").Copy
    Ziel.Range("AR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("I55").Copy
    Ziel.Range("AS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H56").Copy
    Ziel.Range("AT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("I56").Copy
    Ziel.Range("AU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H57").Copy
    Ziel.Range("AV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("I57").Copy
    Ziel.Range("AW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("G58").Copy
    Ziel.Range("AX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("H58").Copy
    Ziel.Range("AY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("I58").Copy
    Ziel.Range("AZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
            Quelle.Range("E60").Copy
    Ziel.Range("BA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G60").Copy
    Ziel.Range("BB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H60").Copy
    Ziel.Range("BC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I60").Copy
    Ziel.Range("BD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E61").Copy
    Ziel.Range("BE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G61").Copy
    Ziel.Range("BF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H61").Copy
    Ziel.Range("BG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I61").Copy
    Ziel.Range("BH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E62").Copy
    Ziel.Range("BI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G62").Copy
    Ziel.Range("BJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H62").Copy
    Ziel.Range("BK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I62").Copy
    Ziel.Range("BL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E63").Copy
    Ziel.Range("BM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G63").Copy
    Ziel.Range("BN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H63").Copy
    Ziel.Range("BO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I63").Copy
    Ziel.Range("BP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E64").Copy
    Ziel.Range("BQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G64").Copy
    Ziel.Range("BR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H64").Copy
    Ziel.Range("BS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I64").Copy
    Ziel.Range("BT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E65").Copy
    Ziel.Range("BU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G65").Copy
    Ziel.Range("BV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H65").Copy
    Ziel.Range("BW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I65").Copy
    Ziel.Range("BX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E66").Copy
    Ziel.Range("BY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G66").Copy
    Ziel.Range("BZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H66").Copy
    Ziel.Range("CA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I66").Copy
    Ziel.Range("CB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E67").Copy
    Ziel.Range("CC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G67").Copy
    Ziel.Range("CD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H67").Copy
    Ziel.Range("CE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I67").Copy
    Ziel.Range("CF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E68").Copy
    Ziel.Range("CG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G68").Copy
    Ziel.Range("CH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H68").Copy
    Ziel.Range("CI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I68").Copy
    Ziel.Range("CJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E69").Copy
    Ziel.Range("CK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G69").Copy
    Ziel.Range("CL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H69").Copy
    Ziel.Range("CM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I69").Copy
    Ziel.Range("CN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E70").Copy
    Ziel.Range("CO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G70").Copy
    Ziel.Range("CP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H70").Copy
    Ziel.Range("CQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I70").Copy
    Ziel.Range("CR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E71").Copy
    Ziel.Range("CS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G71").Copy
    Ziel.Range("CT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H71").Copy
    Ziel.Range("CU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I71").Copy
    Ziel.Range("CV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E72").Copy
    Ziel.Range("CW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G72").Copy
    Ziel.Range("CX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H72").Copy
    Ziel.Range("CY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I72").Copy
    Ziel.Range("CZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E73").Copy
    Ziel.Range("DA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G73").Copy
    Ziel.Range("DB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H73").Copy
    Ziel.Range("DC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I73").Copy
    Ziel.Range("DD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E74").Copy
    Ziel.Range("DE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G74").Copy
    Ziel.Range("DF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H74").Copy
    Ziel.Range("DG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I74").Copy
    Ziel.Range("DH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E75").Copy
    Ziel.Range("DI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G75").Copy
    Ziel.Range("DJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H75").Copy
    Ziel.Range("DK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I75").Copy
    Ziel.Range("DL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E76").Copy
    Ziel.Range("DM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G76").Copy
    Ziel.Range("DN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H76").Copy
    Ziel.Range("DO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I76").Copy
    Ziel.Range("DP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("E77").Copy
    Ziel.Range("DQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G77").Copy
    Ziel.Range("DR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H77").Copy
    Ziel.Range("DS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I77").Copy
    Ziel.Range("DT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H78").Copy
    Ziel.Range("DU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I78").Copy
    Ziel.Range("DV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("K75").Copy
    Ziel.Range("DW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("K77").Copy
    Ziel.Range("DX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("K81").Copy
    Ziel.Range("DY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("L81").Copy
    Ziel.Range("DZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("M81").Copy
    Ziel.Range("EA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H80").Copy
    Ziel.Range("EB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I80").Copy
    Ziel.Range("EC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H81").Copy
    Ziel.Range("ED" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I81").Copy
    Ziel.Range("EE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("G83").Copy
    Ziel.Range("EF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("H83").Copy
    Ziel.Range("EG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("I83").Copy
    Ziel.Range("EH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
                Quelle.Range("B87").Copy
    Ziel.Range("EI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
   
     ActiveSheet.Copy after:=Sheets(Sheets.Count)
     With ActiveSheet
    .Name = .Range("H4")
End With
    
End Sub