Find match, copies adjacent data, skips one and pastes into wrong row

[bob33]

This almost works.
I've a sheet with 2300+ rows of data: title, author.
Each title (column 2) is on its own row with each author (column 4). Example:
"The Brown Dog" by J.Smith
"The Brown Dog" by E. Jones
"The Brown Dog" by S.Doe
This continues for the 800 some titles (some have 1 author, some up to 7).

I need to have the title and the authors in order on one row.
The code below runs but omits the last author of the title (problem 1)
Problem 2: Each author gets put into the row it came from and 1 column to the right of the one above it.
Your help is appreciated!

Please Login or Register  to view this content.

[mrice]

Can be done like this.

Please Login or Register  to view this content.

[bob33]

Mrice,
Thank you!
You saved me a bucket load of time and grief!
Bob