スキルアップ・問題解決なら、モーグにおまかせ！

インプットボックスで指定されたシートをコピーして、その直前にシート「newSheet」を追加します。

Sub Sample()

 Dim SheetName As String
    
 SheetName = Application.InputBox("コピーするシート名を指定してください", _
               "シート名", Type:=2)
 ActiveSheet.Copy Before:=Sheets(SheetName)
 ActiveSheet.Name = "newSheet"

End Sub