Find text in cell using cells object with-in IF Then statement

Almost there, I have attached a workbook showing a before and after worksheet. The before worksheet "Statement of Profit & Loss" is prior to any macro being run the "Statement of Profit & Loss NEW" is what I want the worksheet to look like.