Insert 10 Rows from a given Row No

[mandukes]

I need a vba to insert 10 rows below form a given row

thanks :D

 

[Joe4]

Where is this "given row" coming from?
Do you want a prompt asking them to enter it, or do you just want to run it from the current/active row?

 

[mandukes]

Where is this "given row" coming from?
Do you want a prompt asking them to enter it, or do you just want to run it from the current/active row?

I want a prompt asking them to enter it.

regards
~M

 

[Joe4]

Try this:

Sub MyInsertRows()
    Dim num As Long
'   Prompt for row number
    num = InputBox("What row number would you like to insert rows under?")
'   Insert rows
    Rows(num + 1 & ":" & num + 10).Insert Shift:=xlDown
End Sub

 

[mandukes]

Try this:

Sub MyInsertRows()
    Dim num As Long
'   Prompt for row number
    num = InputBox("What row number would you like to insert rows under?")
'   Insert rows
    Rows(num + 1 & ":" & num + 10).Insert Shift:=xlDown
End Sub

Awesome! thanks you so much !

 

[Joe4]

You are welcome!