Inserting 2 blank rows after each line in selection

[PATSYS]

I have data in range D50:P100.

I want to insert 2 blanks rows after each of the lines in D50 to P100

How is this done in VBA?

Thanks

 

[Tom Urtis]

Assuming the 50-100 rows are set (hedging based on your subject line that included the word Selection), this would place 2 rows below each row from 50-100.

Sub test()
Application.ScreenUpdating = False
Dim xRow&
For xRow = 100 To 50 Step -1
Rows(xRow + 1).Resize(2).Insert
Next xRow
Application.ScreenUpdating = True
End Sub

 

[PATSYS]

Hi Tom,

That worked well, thanks.

May I asked what if it is not a defined range i.e. I want it to insert 2 rows in SELECTION?

Thanks again

 

[Tom Urtis]

I would do it this way:

Sub InsertSelectedRows()
Application.ScreenUpdating = False
Dim FirstRow&, LastRow&, xRow&
With Selection
FirstRow = .Row
LastRow = .Rows.Count + .Row - 1
End With
For xRow = LastRow To FirstRow Step -1
Rows(xRow + 1).Resize(2).Insert
Next xRow
Application.ScreenUpdating = True
End Sub

 

[PATSYS]

Thanks Tom, works perfectly.