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

OK. Try replacing this line:

Range("I2:I" & bottomA).Select

with this line:

Sheets("itbof").Range("I2:I" & bottomA).Select