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