I'm trying merge rows that contain similar data using the easiest method possible, but i assume it will require some VBA. If anybody is able to point me in the right direction that would be great.

An example of what i'm trying to achieve is:

NAME | AGE|   AREA    
John | 32 | Portsmouth
Will | 32 | Portsmouth
Matt | 28 | Southampton
Dave | 32 | Portsmouth
Phil | 28 | Southampton
Tony | 25 | Winchester
Turned into:

AGE|   AREA      | Name 1 | Name 2 | Name 3 |
32 | Portsmouth  | John   | Dave   | Will   | 
28 | Southampton | Matt   | Phil   |        |
25 | Winchester  | Tony   |        |        |
EDIT: I've managed to pile together what i need, however it seems to place the non duplicate data into the same column separated by a ";" as opposed to my preferred Name 1 | Name 2 | Name 3 any thoughts on updating this to populate separate cells rather than the same? It also only seems to use logic on two columns as opposed to three i'm requiring.

Here is the update:

Sub mergeCategoryValues()
    Dim lngRow As Long

    With ActiveSheet
        Dim columnToMatch As Integer: columnToMatch = 2
        Dim columnToConcatenate As Integer: columnToConcatenate = 1

        lngRow = .Cells(65536, columnToMatch).End(xlUp).Row
        .Cells(columnToMatch).CurrentRegion.Sort key1:=.Cells(columnToMatch), Header:=xlYes

        Do
            If .Cells(lngRow, columnToMatch) = .Cells(lngRow - 1, columnToMatch) Then
                .Cells(lngRow - 1, columnToConcatenate) = .Cells(lngRow - 1, columnToConcatenate) & "; " & .Cells(lngRow, columnToConcatenate)
            .Rows(lngRow).Delete
            End If

            lngRow = lngRow - 1
        Loop Until lngRow = 1
    End With
End Sub