Insert 3 blank rows when value changes

[NiklasNordkvist]

Hi,

I have sheet with huge amount of data and need to insert 3 blank rows when value in column 'C' changes starting from row 5.
Is that possible with VBA and does someone know a "simple" code for that?

Picture below shows how I would like the result to be:

 

[mumps]

Try:

Sub InsertRows()
    Application.ScreenUpdating = False
    Dim x As Long, lRow As Long
    lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For x = lRow To 6 Step -1
        Range("A" & x).Resize(3).EntireRow.Insert
    Next x
    Application.ScreenUpdating = True
End Sub

 

[NiklasNordkvist]

Try:

Sub InsertRows()
    Application.ScreenUpdating = False
    Dim x As Long, lRow As Long
    lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For x = lRow To 6 Step -1
        Range("A" & x).Resize(3).EntireRow.Insert
    Next x
    Application.ScreenUpdating = True
End Sub

Hi, thank you for taking your time!

It worked fine in the exampel sheet that I posted a picture of.
But in the actual sheet I get this:

 

[mumps]

A macro that works on sample data very often won't work with actual data. Also, it is hard to work with a picture. It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).