Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim iLastRow As Long

Application.ScreenUpdating = False

With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
If .Cells(i, TEST_COLUMN).Value < .Cells(i - 1,
TEST_COLUMN).Value Then
.Rows(i).Insert
.Rows(i).Interior.ColorIndex = 38
End If
Next i

End With

Application.ScreenUpdating = True

End Sub




--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Justin" wrote in message
...
I have a spreadsheet that is about 1200 rows long. The first column
contains
names of funds, and the other columns contain different information about
them. To extremely simplify what I'm trying to do, take the following
list
for example.
A
A
B
B
B
C
D
D
This is what my first column looks like. I'd like to have Excel search
through and put blank rows between the dissimilar groups so that it looks
like the following
A
A

B
B
B

C

D
D
Any Ideas? This is going to take me a long time to do manually... and
then
I want to make those blank rows color too, but doing that manually isn't
quite as bad. Thanks All