Hallo Irmska,
du kannst die einzelnen Arbeitsblätter mit einer Schleife durchlaufen. Hier ein kleiner Beipielcode (gehört in ein Standardmodul deiner Arbeitsmappe):
Sub zusammenfassen()
Dim i As Long
Dim strZiel As String
Dim lngZeile As Long
'Name des Arbeitsblatt, in das die Daten geschrieben werden sollen - anpassen
strZiel = "Zusammenfassung"
'Die Werte aus der Zelle B5 aller Tabellen werden in die Tabelle Zusammenfassung untereinander eingetragen
'Dort steht in Spalte A der Name der Tabelle und in Spalte B der Wert
'Alle Arbeitsblätter der Mappe durchlaufen
For i = 1 To ThisWorkbook.Worksheets.Count
'Daten nur übertragen, wenn es nicht das Tabellenblatt ist, in der die Zusammenfassung geschrieben wird
If Worksheets(i).Name <> strZiel Then
With Worksheets(strZiel)
lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'Einfügezeile wird ermittelt
.Cells(lngZeile, 1) = Worksheets(i).Name 'Name der Tabelle, aus der die Daten eingefügt werden
.Cells(lngZeile, 2) = Worksheets(i).Range("B5") 'Wert aus B5 wird eingefügt
End With
End If
Next i
End Sub
Falls du nicht klarkommst, kannst du auch deinen schon vorhandenen Code posten und ggf. mal genau erklären, welche Daten kopiert werden sollen.
Gruß
M.O.