Inserting Rows

[Redled89]

Hello everyone

I am looking to insert 2 rows after each row with value in column b to the last row + 2 rows after last row with value.
Below is what I am ultimately looking for:
Before
a Test1
Test2
Test3
b Test4
Test5
Test6
Total
After
a Test1


Test2


Test3


b Test4


Test5


Test6


Total

Originally the following code worked prior to me adding grouping in column A and Subtotaling. Any ideas would be greatly appreciated.


Dim myRow As Long

myRow = 21
Do Until Cells(myRow, 2) = ""
If Cells(myRow, 2) = Cells(myRow - 1, 1) Then
myRow = myRow + 1
Else
Cells(myRow, 1).EntireRow.Insert
myRow = myRow + 2
End If
Loop

[stnkynts]

Submit your workbook.

[Redled89]

Certainly, Please see attached.

[stnkynts]

Like this?

Please Login or Register  to view this content.

[Redled89]

Close and my apologies, my attachment did not reflect that the header actually starts on row 18. How would I modify to account for this?

[stnkynts]

Change the 2 to be 19 (1 more than the header at 18)

Please Login or Register  to view this content.

[Redled89]

Geez Okay, I feel silly for asking that follow up. Thanks so much appreciated!