Excel VisualBasic Script

Sub addAfter()
    ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count), Count:=2, Type:=xlChart
End Sub