Insert (paste) multiple rows below a user-selected cell

[zankzank]

Dear Excel Forum community,
I am VBA beginner user and I am struggling with the following problem.
Basically, I need to copy all rows (variable number of rows, hence I am using the LastRow function) from Sheet2 and insert them below a user-selected cell (via InputBox) in Sheet1.

I wrote the following but it basically just adds and empty row.
However, if the destination range is fixed, the same macro would work

Sub Macro1()
Dim LastRow As Long
LastRow = Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "A").End(xlUp).Row
Dim myReply As Range
    
    Sheets("Sheet2").Range("A2:A" & LastRow).EntireRow.Copy
    Set myReply = Application.InputBox(prompt:="Please any Stage cell: resupply stages will be added ABOVE this cell", Type:=8)
    myReply.EntireRow.Select
    
    Selection.Insert Shift:=xlDown
    
End Sub

Any help would be greatly appreciated!
Best,
Silvano