Inserting a new row when the data in the previous cell is not the same

[Trentvano]

I have data from hundreds of hours of a chat history between myself and a now deceased friend.

The columns are organized into date, screen name and message. When I paste it into word, each message is stacked on top of the other.

I would like for there to be a new row inserted whenever the screename changes, or that is to say, whenever the current "screen name" column is not equal to the "screen name" column immediately before it.

So here is how it looks now:

10/26/2009 TV Hello
10/26/2009 LG How are you
10/26/2009 TV I am fine
10/26/2009 TV How about you
10/26/2009 LG Oh good
10/26/2009 LG I am glad you are well
10/26/2009 LG hahaha

Here is how I need it:

10/26/2009 TV Hello
(SPACE)
10/26/2009 LG How are you
(SPACE)
10/26/2009 TV I am fine
10/26/2009 TV How about you
(SPACE)
10/26/2009 LG Oh good
10/26/2009 LG I am glad you are well
10/26/2009 LG hahaha

Thank you to anyone who can assist!!

 

[kevatarvind]

some thing like below try

Before Macro

Excel Workbook
	A	B	C
1	Date	Screen Name	Message
2	10/26/2009	TV	Hello
3	10/26/2009	LG	How are you
4	10/26/2009	TV	I am fine
5	10/26/2009	TV	How about you
6	10/26/2009	LG	Oh good
7	10/26/2009	LG	I am glad you are well
8	10/26/2009	LG	hahaha
Sheet2

After Macro

Excel Workbook
	A	B	C
1	Date	Screen Name	Message
2	10/26/2009	TV	Hello
3
4	10/26/2009	LG	How are you
5
6	10/26/2009	TV	I am fine
7	10/26/2009	TV	How about you
8
9	10/26/2009	LG	Oh good
10	10/26/2009	LG	I am glad you are well
11	10/26/2009	LG	hahaha
Sheet2

Sub InsertRow()
Dim i As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
    If Cells(i, 2) <> Cells(i - 1, 2) Then Cells(i, 2).EntireRow.Insert
Next
End Sub

 

[Trentvano]

What a wonderful solution, that worked like a charm, thank you so much. Here is another interesting solution, not using a Macro, that someone gave me at another board:

[Solved] Insert rows between different screenames in a chat history?

Thanks again!