Move from column to row according to criteria

Hello everyone,

I have attached a worksheet showing what I'm trying to do.

Basically I need to get/concatenate all the text for all the Name 1's into one cell and the same for Name 2's etc. I have a list of over 3,000 names so i'll just want to be able to drag a formula down.

I started experimenting with transpose but didn't really know what I was doing. Can anyone help?

Try this code

Option Explicit

Sub conc_names()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("Sheet1")
    .Rows(1).Insert
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        If .Range("B" & i).Value = .Range("B" & i - 1).Value Then
            .Range("C" & i - 1).Value = .Range("C" & i - 1).Value & " " & .Range("C" & i).Value
            .Rows(i).Delete
        End If
    Next i
End With

MsgBox "Concatenation complete"

Application.ScreenUpdating = True

End Sub

Put it in a standard module.