I've a datasheet with over 800 row: Title, Author, etc... in columns.
Column 2 has Title, col 4 has authors.

Since some Titles are written by multiple authors, there are duplicate rows for each title; only difference being the Author is different.

I want to have each Title on one row, with all authors in one cell (concatenated) (Preferred option) or (Can work with option) in adjacent cells on the same row as Title.
My weak attempt works a bit but not really (goes one cycle then stops due to a logic issue with comparing title1 to title 2 I believe. Not sure how to fix.
It also pastes authors one row off or so; not in same row.

My thanks in advance for any help!

Code:

Sub authorgetter()
Dim lngLastRow As Long
Dim c, r, n, x As Integer
Dim title1, title2 As String

r = 2 'start of data rows to check
c = 16 'column to paste author into
n = 1 'counter

lngLastRow = Range("A" & Rows.Count).End(xlUp).Row

For y = 1 To lngLastRow

If lngLastRow > 1 Then
title1 = Cells(r, 2).Value 'checks if title is same as next row's title
title2 = Cells(r + 1, 2).Value

If title1 = title2 Then
x = (r - 1) - n
Cells(r, 4).Select 'selects author's name to copy
Selection.Copy
ActiveCell.Offset(x, c).Select 'pastes name into column
ActiveSheet.Paste
r = r + 1
n = n + 1
c = c + 1 'pastes name into adjacent columns; needs to be concatenated somehow?
End If

End If
Next y

End Sub