BVA Code to Inside a Row

[OVSD_DS]

can I get help with a VBA code to insert a row after a different cell value in column A?

Fruit

Orange

Orange

Orange

Banana

Banana

Banana

Banana

Banana

Banana

Grapes

Grapes

Grapes

Grapes

Grapes

Grapes

Grapes

Apple

Apple

Apple

Apple

Apple

Apple

 

[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 3 Step -1
        If Range("A" & x) <> Range("A" & x - 1) Then
            Rows(x).EntireRow.Insert
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

 

[OVSD_DS]

that works great but how about keeping the same name and only inserting the row after the name is different for example all orange then Insert 2 columns and banana and Insert 2 columns and so on, I hope this makes sense.

 

[mumps]

how about keeping the same name and only inserting the row after the name is different

I'm not sure what you mean by this. Can you post data that shows what you want your end result to look like?

 

[OVSD_DS]

Below is the End Result.

Fruit

Orange

Orange

Orange

Banana

Banana

Banana

Banana

Banana

Banana

Grapes

Grapes

Grapes

Grapes

Grapes

Grapes

Grapes

Apple

Apple

Apple

Apple

Apple

Apple

 

[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 3 Step -1
        If Range("A" & x) <> Range("A" & x - 1) Then
            Rows(x).EntireRow.Resize(2).Insert
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

 

[OVSD_DS]

Awesome that works great, thank you very much for your help, have a wonderful day

 

[mumps]

You are very welcome.