Target adress mee laten schuiven en op meerdere plekken laten terugkomen

[bomseler]

Hallo,

Ik heb de volgende code geschreven:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$22" Then
irow = Cells(Rows.Count, 7).End(xlUp).Row - 3
    Rows(irow).Copy
    Rows(irow + 1).EntireRow.Insert
    Application.CutCopyMode = False
    Cells(irow + 1, 1).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$25" Then
irow = Cells(Rows.Count, 7).End(xlUp).Row - 3
    Rows(irow).Copy
    Rows(irow + 1).EntireRow.Insert
    Application.CutCopyMode = False
    Cells(irow + 1, 1).Select
End If
End Sub

Deze voegt een rij in boven de cel waarop geklikt wordt. Nu wil ik deze code op 5 posities in kolom D plaatsen en als er dan een rij ingevoegd word moet het target adress mee naar beneden schuiven.

Kan iemand mij hierbij helpen?

Alvast hartelijk dank!

 

[bomseler]

Ik heb een werkende code:

Sub Rij_Invoegen1()

Range("C21").Select
Selection.End(xlDown).Select
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

End Sub

Vraag opgelost!