Microsoft Office Forums - View Single Post - [Solved] Sorting or an Excel formula to insert a blank row after ending a series.

Catalin.B · 09-07-2011, 02:33 AM

Try this code:

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...