Why not use a last row scenario. Something like this
Sub test()
Dim lastrow As Integer
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("B2:B" & lastrow).FormulaR1C1 = "=IF(RC[-1]<60,""yes"","""")"
Range("C2:C" & lastrow).FormulaR1C1 = "=IF(AND(RC[-2]>59,RC[-2]<90),""yes"","""")"
Range("D2:D" & lastrow).FormulaR1C1 = "=IF(AND(RC[-3]>89,RC[-3]<120),""yes"","""")"
Range("E2:E" & lastrow).FormulaR1C1 = "=IF(RC[-4]>119,""yes"","""")"
End Sub
In the above code, each of the columns will be filled with a formula from row 2 to the last row with data in column A. In your case, your i = i to lastrow
Bookmarks