There is a way to beat this.

If you have observed, when you copy a sheet, the newly created sheet is
active.

after copy, you can immediately use activesheet.name = "your_name" then
you can control this.

Sub copy_sheet()

Sheets("Sheet1").Copy After:=Sheets(1)
ActiveSheet.Name = "Newname"

End Sub