Combining cells from different rows under multiple conditions

[Magoosball]

I'm trying to write a VBA script that will turn table A into Table B


Table A:

Name	Animal
Mike	Dog
Mike	Cat
Mike	Mouse
Mike	Rat
Mike	Chicken
Mike	Snake
Mike	Bear
April	Mouse
April	Chicken
April	Snake
James	Bengal Cat
James	Rat
Thor	Dog
Thor	Cat
Thor	Rat
Thor	Snake
Thor	Bear

<tbody>
</tbody>

Table B

Name	Animal
Mike	Dog, Cat, Rat
Mike
Mike	Mouse
Mike
Mike	Chicken
Mike	Snake
Mike	Bear
April	Mouse
April	Chicken
April	Snake
James	Bengal Cat, Rat
James
Thor	Cat, Rat
Thor
Thor	Snake
Thor	Bear

<tbody>
</tbody>

In summary: For each persons name in row A, I want to combine the cells, separated by a comma, if the cell contains the words: "Dog", "Cat", or "Rat"

Thank you in advance!!

 

[AlphaFrog]

[color=darkblue]Sub[/color] Dog_Cat_Rat()
    [color=darkblue]Dim[/color] i [color=darkblue]As[/color] [color=darkblue]Long[/color], lFirst [color=darkblue]As[/color] [color=darkblue]Long[/color], strDCR [color=darkblue]As[/color] [color=darkblue]String[/color], strName [color=darkblue]As[/color] [color=darkblue]String[/color]
    [color=darkblue]Dim[/color] arr [color=darkblue]As[/color] [color=darkblue]Variant[/color], c [color=darkblue]As[/color] [color=darkblue]Variant[/color], v [color=darkblue]As[/color] [color=darkblue]Variant[/color]
    arr = Array("Dog", "Cat", "Rat")
    [color=darkblue]With[/color] Range("A1").CurrentRegion.Offset(1)
        v = .Value
        [color=darkblue]For[/color] i = 1 [color=darkblue]To[/color] [color=darkblue]UBound[/color](v, 1)
            [color=darkblue]If[/color] v(i, 1) <> strName [color=darkblue]Then[/color]
                [color=darkblue]If[/color] strDCR <> "" [color=darkblue]Then[/color] v(lFirst, 2) = Mid(strDCR, 3)
                strName = v(i, 1)
                lFirst = 0
                strDCR = ""
            [color=darkblue]End[/color] [color=darkblue]If[/color]
            [color=darkblue]For[/color] [color=darkblue]Each[/color] c [color=darkblue]In[/color] arr
                [color=darkblue]If[/color] LCase(v(i, 2)) [color=darkblue]Like[/color] "*" & LCase(c) & "*" [color=darkblue]Then[/color]
                    [color=darkblue]If[/color] lFirst = 0 [color=darkblue]Then[/color] lFirst = i
                    strDCR = strDCR & ", " & v(i, 2)
                    v(i, 2) = ""
                    [color=darkblue]Exit[/color] [color=darkblue]For[/color]
                [color=darkblue]End[/color] [color=darkblue]If[/color]
            [color=darkblue]Next[/color] c
        [color=darkblue]Next[/color] i
        .Value = v
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]