Add Method (Sheets Collection) Example
This example inserts a new worksheet before the last worksheet in the active workbook.
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)