Inserting Rows with Input Box selection

[rubic]

Hi,

Earlier today I posted a question on deleting empty rows within the selection via an input box and thankfully I got the answer I want within a very short time.
Now the question I have is, instead of deleting of empty rows, I want to insert blank row or rows via an input boxes selection. What the macro need to do is is ask for the range to insert the empty row and after selection of the range via the input box will then ask for the number of rows to insert within the selected range.

 

[northwolves]

Try:

Sub Macro1()
Dim msg As String
msg = InputBox("Please enter the range and rows count to insert rows", "Info", "A7 12")
Range(Split(msg)(0)).Resize(Split(msg)(1), 256).Insert Shift:=xlDown
End Sub

Regards
Northwolves

 

[rubic]

Northwolves,

Thanks for the quick reply. I ran the macro and this is what I encountered. The input box did not allow me to use the mouse to select a range. I then manually key in the range I wanted to insert, I encountered some form of error message.
I wonder do the codes allows to input the number of rows to insert?