Loop function SUMIFS

Thank you, I really appreciate it!!, I had to change some parts cuz it wasnt working that way but you gave me the idea!! thanks a lot.

at the end was like this:

ActiveCell.Offset(1, 2).Range("A1").Select

For count = 3 To 10
    ActiveCell.FormulaR1C1 = "=IF(((COUNTIF(RC60:RC69,R" & count & "C95))>0),R" & count & "C99,"""")"
    ActiveCell.Offset(0, 1).Range("A1").Select
Next