Sub addNewSheetInAWorkbookAtPosition()

    Dim wb As Workbook

    Dim fPath As String

 

    fPath = "C:\Users\Desktop\myfile.xlsx"

    Set wb = workbooks.Open(Filename:=fPath)

    ' Add a new worksheet in your workbook

    ' Below statement will add your new sheet at first position

    wb.Worksheets.Add Before:=1

    ' Below statement will add your new sheet at second position

    wb.Worksheets.Add After:=1

    ' Below statement will add your new sheet at the end

    wb.Worksheets.Add After:=Worksheets.Count

End Sub