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.

[TABLE="width: 500"]
<tbody>[TR]
[TD]Animals[/TD]
[TD]Dog[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Lion[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Tiger[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Goat[/TD]
[/TR]
[TR]
[TD]Birds[/TD]
[TD]Pigeon[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Crow[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Eagle[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Sparrow[/TD]
[/TR]
[TR]
[TD]Animals[/TD]
[TD]Dog
Lion
Tiger
Goat[/TD]
[/TR]
[TR]
[TD]Birds[/TD]
[TD]Pigeon
Crow
Eagle
Sparrow[/TD]
[/TR]
</tbody>[/TABLE]

 

[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