Tabellen zusammenfassen - Erweiterung

Sub neu()
Dim y As Integer
Dim x As Integer
Dim lz  As Integer
Dim mysheet As Worksheet
y = 0
For Each mysheet In ActiveWorkbook.Worksheets
If mysheet.Name = "Zusammenfassung" Then GoTo weiter
x = mysheet.Cells(Rows.Count, 1).End(xlUp).Row
If x > 1 Then
mysheet.Rows("2:" & x).Copy
lz = Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Zusammenfassung").Select
Worksheets("Zusammenfassung").Cells(lz + 1, 1).Select
Worksheets("Zusammenfassung").Paste
mysheet.Rows("2:" & x).ClearContents
End If
weiter:
Next
End Sub

Jetzt benötige ich für meinen Chef aber eine Veränderung:
1)
Das erste Tabellenblatt soll in dem Makro nur einmal namentlich erwähnt werden, damit man
schneller den Namen ändern kann.
2)
Es soll eine Schleife gebildet werden, mit einer variablen Grenze (sprich, ich soll einstellen können,
bis zu welchem Blatt die Schleife durchlaufen werden soll, z.B. bis auf die letzte beiden Blätter ). Derzeit werden ja alle Blätter nach dem Blatt "Zusammenfassung" ausgelesen und da gibt es natürlich nun wieder Besonderheiten. :-( Vielleicht ging das ja mit einer Inputbox?
Welcher von Euch netten Excel-Freunden kann mir helfen? Bin verzweifelt, vor allem bei der zweiten Aufgaebe.
Vielen vielen vielen vielen Dank!
Liebe Grüße
Claudia