Range("A12:A33").FormulaR1C1 = "=IF(RC7="""","""",ROW()-11)"
Range("A12:A33").FormulaR1C1 = "=IF(RC7="""","""",ROW()-11)"
Range("A12:A33") = Range("A12:A33").Value
With Range("A12:A33")
.FormulaR1C1 = "=IF(RC7="""","""",ROW()-11)"
.Value = .Value
End With