Inserting rows where the text is different

[chadski778]

In the range B10:B100 I have blocks of text. I would like to insert rows between cells where the text is different
example
CH5
CH5
CH5
CH2
CH2
CH7
CH7
CH7
So in the above example I would like a row inserted between CH5/CH2 and CH2/CH7

Thanks Chad

 

[JackDanIce]

Hi. Try:

Sub PinkCurtainsHave()
 
 Dim i As Long
 
 With Application
     .Calculation = xlCalculationManual
     .ScreenUpdating = False
 End With
 
 For i = Range("B" & Rows.Count).End(xlUp).row To 2 Step -1
     If Range("B" & i) <> Range("B" & i - 1) Then Range("B" & i).EntireRow.Insert
 Next i
 
 With Application
     .Calculation = xlCalculationAutomatic
     .ScreenUpdating = True
 End With
 
End Sub

 

[zulu3in]

Thanks a Lot Jack I was looking for it

 

[JackDanIce]

You're welcome Zulu