Sub DatenKopieren()

    Dim ws As Worksheet ' Variable zur Speicherung des aktuellen Arbeitsblatts
    Dim newSheet As Worksheet ' Variable zur Speicherung des neu erstellten Arbeitsblatts
    Dim lastSheet As Integer ' Index des letzten Arbeitsblatts
    Dim i As Integer ' Zählvariable für die Schleife
    Dim newRow As Integer ' Neue Zeile für das Einfügen der Daten

    ' Neues Arbeitsblatt am Ende der Arbeitsmappe einfügen
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

    ' Reihe 141 aus Arbeitsblatt 1 in das neu erstellte Arbeitsblatt kopieren
    ThisWorkbook.Sheets(1).Rows(141).Copy Destination:=newSheet.Range("A1")

    ' Index des letzten Arbeitsblatts bestimmen
    lastSheet = ThisWorkbook.Sheets.Count - 1

    ' Durchlaufen der Arbeitsblätter ab dem zweiten bis zum vorletzten Arbeitsblatt
    For i = 2 To lastSheet
        Set ws = ThisWorkbook.Sheets(i)

        ' Neue Zeile für das Einfügen der Daten bestimmen
        newRow = i + 1

        ' Wert aus Zelle A4 des aktuellen Arbeitsblatts in das neu erstellte Arbeitsblatt kopieren
        newSheet.Cells(newRow, 2).Value = ws.Range("A4").Value
    Next i

End Sub