2te Datei öffnen und variable Datenmenge kopieren

Sub Mengen()
Dim z As Long
Workbooks.Open "C:\Eigene Dateien\Zusammenfassung.xlsm" ' öffnen der 2ten Datei
Sheets("Übersicht").Select 'in den richtigen Reiter springen
z = .Cells(.Rows.Count, 1).End(xlUp).Row        ' letzte Zeile definieren
.Range("A1:H" & z).Select                       ' Bereich auswählen
Selection.Copy                                  ' Bereich kopieren
Workbooks("Zusammenfassung.xlsm").Close False       '2te Datei schließen
'oder
'Application.DisplayAlerts = False
'Workbooks("Gesamt MA-Liste_Heidenau.xls").Close savechanges = yes
'Application.DisplayAlerts = True
Sheet9.Activate                                 'Zielreiter auswählen
Sheets("Mengen").Select
With Sheets("Mengen")
.Range("B1").PasteSpecial xlPasteValues         'Werte kopieren und in B1 starten.
Application.CutCopyMode = False
End With
End Sub