Sorting or an Excel formula to insert a blank row after ending a series.

[PRADEEPB270]

I have a file consisting so many part codes in a column.Most of the part codes are same.Now,I want when a particular part code end,a blank row should be insert and a new part code begin and so on.Is it possible through excel?



Pl.refer attach file for more clarification.

[Catalin.B]

Try this code:

Sub Macro2()
Dim i As Integer
With ActiveSheet

For i = 2 To 25
Range("E" & i).Value = Range("B" & i).Value

    Next i
    End With
    
    With ActiveSheet
    For i = 2 To 25
    If Range("E" & i + 1).Value > Range("E" & i).Value Then
Range("E" & i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    End If
    i = i + 1
    Next i
    End With
End Sub

If you have a long range, you may disable screen updating to speed up macro...