I have an array of data. I want to insert lines in
between rows where the value in column "A" changes. For
instance, the value in cell A1 through A10 is 522, then
A11 goes to 524. I want to insert a blank row to seperate
the two. The code that I wrote to attempt that failed
miserably. Not sure where I went wrong, but here's what I
did:

Sub sepLATAs()
Range("a3:a150").Select
Dim acell As Range

For Each acell In Selection

If acell.Value < acell.Offset(-1, 0) Then
acell.EntireRow.Insert
On Error Resume Next
End If
Next acell

End Sub

Any help would be appreciated.

Thanks,

Kevin G