Rijen invoegen dmv macro

[Abco_B]

Onderstaande macro voegt op de plaats van de actieve cel een rij in:

Sub Rij_invoegen()
Application.ScreenUpdating = False
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
End Sub

Hoe kan ik er voor zorgen dat er twee rijen worden ingevoegd als ik twee cellen onder elkaar selecteer ?

Bij voorbaat dank !

Abco

 

[jheesterbeek]

Sub Rij_invoegen()
Application.ScreenUpdating = False
Selection.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
End Sub

 

[Abco_B]

Heel mooi !

Dank je wel,

Abco