Rijen voor kolom A tm E invoegen

[fwalraven]

Hallo is het mogelijk om de macro zo uit te voeren, ongeacht in welke rij in kolom A staat om 5 rijen in te voegen?
Nu begint hij iedere keer bij A5.

Laat ik: Range("A5:F5").Select weg dan worden de gehele rij verwijderd en dat is ook niet de bedoeling.
Frans

Sub Macro2()
    Range("A5:F5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

[edmoor]

Dit werkt hier prima:

Sub Invoegen5Rijen()
    For i = 1 To 5
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
End Sub

 

[AHulpje]

Of:

Sub Invoegen5Rijen()
    Rows(ActiveCell.Row & ":" & ActiveCell.Row + 4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

[HSV]

Of:

sub invoegen5rijen()
 activecell.resize(5,5).insert , xlabove
end sub

Met onderstaande hoef je niet per se in kolom A te staan.

Sub hsv()
 Cells(ActiveCell.Row, 1).Resize(5, 5).Insert , xlAbove
End Sub