In diesem Beispiel wird ein leeres Diagrammblatt erstellt und vor dem letzten Tabellenblatt eingefügt.
ActiveWorkbook.Charts.Add Before:=Worksheets(Worksheets.Count)