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

Sub Sample()

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

End Sub