Macro help needed

[rdsjms69]

My spreadsheet looks like this (column A):

Apple
Apple
Apple
Apple
Orange
Orange
Orange
Pear
Pear
Pear
Banana
Banana
Banana

I need to be able to insert a blank row whenever the value in column A changes, but I cannot figure out how to do it. I am a complete rookie when it comes to Excel macros and I don't know a thing about VBA.

Please help!

 

[jindon]

Hi
try

Sub test()
Dim i As Long
i = 1
Do While Cells(i, 1) <> ""
    If Cells(i + 1, 1) <> "" And Cells(i, 1) <> Cells(i + 1, 1) Then
        Rows(i + 1).Insert
        i = i + 1
    End If
    i = i + 1
Loop
End Sub

 

[rdsjms69]

Perfect! Thank you so much!