rij kopiëeren en invoegen

[jo geuens]

hoi ik wil een bepaalde rij met alle waarde/data kopiëren en lager in het werkblad waar ik een rij selecteer invoegen door middel van een knop met een macro/vba code
deze heb ik nu al maar dan word de rij telkens boven de 7 de rij een rij ingevoeg en niet waar ik een rij selecteer.

Sub insert()

    Rows("7:7").Select
    Application.CutCopyMode = False
    
    
    Selection.Copy
  
    Selection.Select
    Selection.insert 'Shift:=xlDown
End Sub

 

[VenA]

Mij ontgaat even de logica van deze vraag. Dit zit toch standaard onder je rechtermuisknop? Rij kopiëren en volgende rij selecteren (waar het moet komen te staan) en dan gekopieerde cellen invoegen?