mehrere Blätter einer Mappe speichern

es hat sich noch ein weiteres Problem aufgetan. Ich möchte anstatt einem Tabellenblatt aus einer Mappe zwei oder mehr speichern. Für eines habe ich ja folgendes Makro:

Sub DateiKopieren()
Dim Datei
Dim sicherung
Dim kst_stelle
Dim strVerzeichnis
kst_stelle = Range("B1")
Datei = "Personalkostenplanung_HSR_"
sicherung = Datei & kst_stelle & ".xls"
strVerzeichnis = sicherung
ActiveWorkbook.Worksheets("Tabelle1").Copy
ActiveWorkbook.SaveCopyAs strVerzeichnis
End Sub

Kann ich dieses irgendwie modifizieren oder gibt es für mein Problem keine so einfache Lösung?

Gruß und vielen Dank im Voraus
Thorsten