Insert copied row below selected row

[satheo]

Trying to make a macro that inserts a copied row from sheet 2 below the selected row in sheet 1. I'm not sure about formatting but so far I have:

Sub AddRow()
    
    Sheets("Sheet1").Range("A9:BU9").Copy  'this is what I want to copy, will be same row every time
    Sheets("Sheet2").Range(ActiveCell.Row).Select  'where I need help, want it to insert the copied row based on selection
    Selection.Insert Shift:=xlDown

    Application.CutCopyMode = False     'clears clipboard cause i have some other macros that would get messed up 

End Sub

 

[Fluff]

How about

Sub AddRow()
    
    Sheets("Sheet1").Range("A9:BU9").Copy  'this is what I want to copy, will be same row every time
    Sheets("Sheet2").Range("A" & ActiveCell.Row).insert 'where I need help, want it to insert the copied row based on selection
    

    Application.CutCopyMode = False     'clears clipboard cause i have some other macros that would get messed up

End Sub

 

[satheo]

How about

Sub AddRow()
   
    Sheets("Sheet1").Range("A9:BU9").Copy  'this is what I want to copy, will be same row every time
    Sheets("Sheet2").Range("A" & ActiveCell.Row).insert 'where I need help, want it to insert the copied row based on selection
   

    Application.CutCopyMode = False     'clears clipboard cause i have some other macros that would get messed up

End Sub

Thank you, this seems to work but it inserts the row above the selected one, can it be adjusted to insert it below?

 

[Fluff]

Try

Sheets("Sheet2").Range("A" & ActiveCell.Row+1).Insert

 

[satheo]

Try

Sheets("Sheet2").Range("A" & ActiveCell.Row+1).Insert

Beautiful, thank you!

 

[Fluff]

You're welcome & thanks for the feedback.