Insert row macro

[Sicar]

I have a spreadsheet that I want to use a macro to copy a specific row and insert it where the cursor is when I click the button.

It be be preferable if the macro can insert a single row or a number of rows depending on how many are selected.

 

[Joe4]

Welcome to the Board!

Will it always be copying FROM a specific row number (that can be hard-coded into the VBA code)?
Will the rows you are inserting ALWAYS be BELOW the row that you want to copy from?

 

[Joe4]

If the answer to both my question is "Yes", here is code that should do what you want.
I used row 4 as the row to copy from in this example, but you change that number to whatever you need it to be.

Sub MyRowCopyMacro()
    Rows("4").Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

 

[Sicar]

If the answer to both my question is "Yes", here is code that should do what you want.
I used row 4 as the row to copy from in this example, but you change that number to whatever you need it to be.

Sub MyRowCopyMacro()
    Rows("4").Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Hi Joe,
Thanks for the prompt response.

Yes the row to be copied will always be the same, row 7 in my case, and it needs to be inserted where the cursor is, this could be anywhere on the sheet eg row 20.

Tried the above code and it works, thank you very much

 

[Joe4]

You are welcome.
Glad I was able to help!

 

[Sicar]

Hi Joe,
Thanks for the prompt response.

Yes the row to be copied will always be the same, row 7 in my case, and it needs to be inserted where the cursor is, this could be anywhere on the sheet eg row 20.

Tried the above code and it works, thank you very much

You are welcome.
Glad I was able to help!

Do you know if the macro can be amended so that it still runs, but with a cell selected rather than selecting the row below which I want to insert the copied row?

 

[Joe4]

This will do that, but only for one row (where the Active Cell is):

Sub MyRowCopyMacro()
    Rows("4").Copy
    Rows(ActiveCell.Row).Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

 

[Sicar]

Thanks Joe

 

[Joe4]

You are welcome.