Neue Arbeitamappe erstellen-VBA

Sub MeineTabellen()
Dim a As Byte
Application.ScreenUpdating = False
For a = 1 To 3 ……………….Anzahl der Tabellen
With Sheets(a)
.Range("A10:F53").Copy
Sheets(4).Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End With
Next a
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Das Makro habe ich aus dem Forum , es macht auch das was ich wollte
beim testen bin ich aber draufgekommen das ein--Workbooks.Add---
also eine neue Arbeitsmappe sinnvoller ist, nur da enden meine bescheidenen
VBA - Kenntnisse
Kann mir bitte jemand den Code erweitern.
Vielen Dank für eure Hilfe
michael