Thanks for the Reply.

I removed this section from the code and changed GP % target to incorporate each branch for eg GP % target-Br1 , GP % target-Br2 and then set up a table and had a Vlookup in Col B and this resolved my problem

Code:
 If Sheets(i).Cells(r.Row, 1).Value <> "GP % target" Then r.ClearContents