VBA referring to a different sheet, automatically fill cell based on content of other cell

OK, thanks for supplying this code I thought's what it was. I tried it again and got the same 400 error pop up. Everything else works but column I on itbof doesn't get populated anymore because of the error. I have attached a copy of my workbook with the updated code in it that I'm using so you can open it and see what I'm talking about.

Thanks!