So i have some borrowed code here. Instead if it just inserting a new line/lines based on the active cell (which could be any random spot the user unknowingly may click on), I want the user to know what's going on and be prompted to select where he/sher wants to insert the new line. Perhaps a message box that says "Select where you wish to insert the new line/lines." Thanks for the help in advance!


Sub InsertRow()

Dim Rng, n As Long, k As Long
Application.ScreenUpdating = False
Rng = InputBox("Enter number of rows required.")
If Rng = "" Then Exit Sub
Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
k = ActiveCell.Offset(-1, 0).Row
n = Cells(k, 256).End(xlToLeft).Column
Range(Cells(k, 1), Cells(k + Val(Rng), n)).FillDown

End Sub