try this:

dim count as long
Application.cutcopymode = False
activecell.offset(1,2).formulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R2C94))>0),R2C98,"""")" 'i had to place this out of the loop because your offset is different from the rest
for count = 2 to 9
     activecell.offset(0,1).formulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R3C94))>0),R" & count & "C98,"""")"
next