Dim wbk As Workbook
Dim wks As Worksheet
Dim zaehler As Integer
Dim Name_letzte_Tabelle As String
Dim Name_neue_Tabelle As String
For Each wks In ActiveWorkbook.Sheets
If wks.Name <> "" then
zaehler = zaehler + 1
Name_letzte_Tabelle = wks.Name
End if
Next wks
Name_neue_Tabelle = CStr(zaehler - 1)
Set wbk = ActiveWorkbook
Worksheets.Add After:=Name_letzte_Tabelle
ActiveSheet.Name = Name_neue_Tabelle
Sheets("Vorlage").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Name_neue_Tabelle).Select
Cells.Select
ActiveSheet.Paste