VBA looping, then inserting blank row

[PB7]

Hello VBA colleagues.

I have a spreadsheet sorted by individual people names in column E.

I need VBA to loop through, and insert a blank row, at each change in the names is Column E.

All spreadsheet data goes from column A to Z, for whatever number of rows there are for any given instance.

I've done a lot of surfing in Mr. E and Google, with no luck. Would anyone has something quick for this?

Thanks in advance, for any attention or response to this request.

 

[AlphaFrog]

Sub Insert_Rows()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Range("E" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Cells(i, "E") <> vbNullString And Cells(i - 1, "E") <> vbNullString Then
            If Cells(i, "E") <> Cells(i - 1, "E") Then Rows(i).Insert
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[PB7]

Thanks AlphaFrog, let me try this code right now and confirm back.

 

[PB7]

AlphaFrog, the code worked like a champ, & 1st time too! Thank you, thank you, for the great, quick response.

 

[AlphaFrog]

You're welcome. I'm glad it worked for you.

 

[limeyadam]

Greetings all,

I was wondering if anyone could provide assistance on a variation of this?

I need a macro that will insert a blank row between my data when it finds a different result in column E (date field), but also if it finds a different result in column B (area code).

Please advise.

Thank you,
limeyadam.

 

[AlphaFrog]

Do you want to insert a blank row when both B and E are different or when B or E are different?