Sub test()
Dim r As Range, c As Range, animal As String, cfind As Range
Set r = Range(Range("A1"), Range("A1").End(xlDown))
r.Interior.ColorIndex = xlNone
For Each c In r
animal = c
If WorksheetFunction.CountIf(Columns("E:E").Cells, animal) > 0 Then c.Interior.ColorIndex = 6
If WorksheetFunction.CountIf(Columns("d:d").Cells, animal) > 0 Then c.Interior.ColorIndex = 3
Next c
MsgBox "macro done"
End Sub