It seems like you are talking about rows and columns as if they are the same
thing (but of course they are not). Try to run this function and see if it
gives you what you want:
Sub InsertAfterTextChange()
Do Until ActiveCell = Empty And ActiveCell.Offset(1) = Empty
If ActiveCell <> ActiveCell.Offset(1) And ActiveCell <> Empty And
ActiveCell.Offset(1) <> Empty Then
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(2).Select
Else
ActiveCell.Offset(1).Select
End If
Loop
End Sub
Make sure you have a backup of your data in case the code does not do what
you want. Finally, make sure your data is sorted in order (ascending or
descending) in Column A.
Regards,
Ryan---

Signature
RyGuy
> Thanks in advance for your help!
>
[quoted text clipped - 11 lines]
> cells down to continue the verification process thru the entire 400 piece
> listing.
Susan - 12 May 2008 17:05 GMT
My mistake, I should have written coloumn A, B,C etc.
I'm new at this, so forgive me if I ask what I should already know.
How do I establish the active cell and the active cell offset?
What in this formula should I be changing.
Here is what I need.
IE: If C2 = B2, No Action . . . If C2 <> B2, insert cells in C2:I2 (not an
entire row)
Continued thru row 414.
Susan

Signature
Thanks!
Susan
> It seems like you are talking about rows and columns as if they are the same
> thing (but of course they are not). Try to run this function and see if it
[quoted text clipped - 33 lines]
> > cells down to continue the verification process thru the entire 400 piece
> > listing.