Macro to insert blank rows below rows with values

[haleakala17]

All,

I am requesting if anyone can help me in creating a macro that will insert blank rows beneath rows containing values in cells. I am a novice learner in creating macros and I appreciate your assistance in this matter. Please view Excel file on attachment name Analysis to view data and step by step instructions in visual form and text boxes. The original list of data is located on the Main worksheet while the step by step instructions on what I am trying to achieve is located on Step 1, Step 2, and Step 3 worksheets. Below is a macro I attempted to create but it only enters rows beneath the value Assets in Column B. I appreciate all the help you all can provide. If you need any questions please send me a reply. Thank you.

Sub InsertRows()
Dim i As Long
i = 2
Do Until Trim(Cells(i, 2)) = ""
If Cells(i, 2) = "Asset" Then
Cells(i, 2).EntireRow.Insert
i = i + 2
Else
i = i + 1
End If
Loop
End Sub

[Chris 53]

How about

Please Login or Register  to view this content.

[haleakala17]

Chris 53,

For the most part this macro worked! It is amazing. I definitely have to get better in VB skills. The only function that did not work was entering a page break below the rows with the value "Bank" in Column B, I believe this is called a horizontal pagebreak. View Step 3 in the Analysis Excel file on attachment. I will see what I can do to insert this page break.

Once again thank you so much for your assistance on this, I will wait for your reply.

Haleakala17

[Chris 53]

Sorry did not pick up that you wanted a page break on every instance of B = Bank.

Please Login or Register  to view this content.

Probably don't need the pagebreaks after 'LastRow:' either
Chris

[haleakala17]

Chris 53,

this completely works now. Thank you very much once again.