Macro to insert rows below active cell

Question

Hi,

I am looking for some assistance with a basic macro. Currently, the macro keeps pasting above rows 52 in the incorrect order see yellow highlights below. Each time I run the macro it pastes the content into cell 52. I would like to adjust this so it would paste the content below the active row/cell. If anyone knows the answer I would love some assistance with this.

Current Macro below.

Sub Insert()

'

' Insert Macro

'

'

    Sheets("Sheet2").Select

    Rows("1:7").Select

    Selection.Copy

    Sheets("Buildup SOR & Costs").Select

    Rows("52:52").Select

    Selection.Insert Shift:=xlDown

    Range("A41").Select

End Sub

Thanks for your help in advance.

Regards,

Natasja

[Moved from: Office / Excel / Other/unknown / Office 2010]

Answer 1

Try this:

Sub Insert()

 '

 ' Insert Macro

 '

 '

     Sheets("Sheet2").Rows("1:7").Copy

     Sheets("Buildup SOR & Costs").Select

     Selection.Insert Shift:=xlDown

 End Sub

Answer 2

Wow thank you so much, problem solved!

Regards,

Natasja

Answer 3

Hi !

I'm not an expert either but maybe you could do the lazy way and select the row under the 52 ?

Best regards

Pierre