In a Pivot - I have Animals in Column A and the list of 10 animals are populated in Column B, I want all the 4 to be merged to the first Cell

[ms48210]

In a Pivot - I have Animals in Column A and the list of 4 animals are populated in Column B, I want all the 4 to be merged to the first Cell, My Pivot has values in Green and I want the green to be converted like the below RED, Need a formula or macro to convert a huge list.

Animals	Dog
	Lion
	Tiger
	Goat
Birds	Pigeon
	Crow
	Eagle
	Sparrow
Animals	Dog Lion Tiger Goat
Birds	Pigeon Crow Eagle Sparrow

<tbody>
</tbody>

 

[Llupo01]

Hello, hope this helps:

Sub test()

Dim i As Integer
Dim lr As Integer
Dim rng As Range

Set rng = [b1]

lr = Cells(Rows.Count, 2).End(xlUp).Row
[b1].Select

Application.ScreenUpdating = False

    For i = 1 To lr

        If ActiveCell.Offset(1, -1).Value <> "" Then
        ActiveCell.Offset(1, 0).Select
        Set rng = ActiveCell
        End If

    rng.Value = rng.Value & Chr(10) & ActiveCell.Offset(1, 0).Value
    ActiveCell.Offset(1, 0).EntireRow.Delete

        If ActiveCell.Offset(1, 0).Value = "" Then
        Exit Sub
        End If
          
    Next i
   
Application.ScreenUpdating = True
   
End Sub