Tricks and tips of adding Sheets using VBA.
Add Sheet Last
Sheets.Add(, Sheets(Sheets.Count)).Name = "sheetName"
Add Sheet Before
Sheets.Add(Before:=Sheets("SheetName")).Name = "sheetName"
Add Sheet After
Sheets.Add(After:=Sheets("SheetName")).Name = "sheetName"
Source
https://www.automateexcel.com/vba/add-and-name-worksheets/