Macro/Excel Find Function

Hey Everyone

I've created a Macro uses the find function to find rows & columns and than collect the data from the row-Column intersection. It all works great when I use simple words like "cat" and "dog". However the actual report I'm retrieving data from has the cells formated in such a way that the find function doesn't work, not even when I use the excel find function. Are there other find fucntions I can use in my macro besides

Pressure04 = Worksheets("Sheet1").Cells.Find(What:="Cat", LookIn:=xlFormulas, LookAt:=xlWhole, _
                       SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
                       SearchFormat:=False)

I've also attached a sample of the report columns. I can't seem to get the find function to pick up these columns.

Thanks in advance! You are all Amazing!