In diesem Beispiel wird ein neues Tabellenblatt vor dem letzten Tabellenblatt in der aktiven Arbeitsmappe eingefügt.
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)