What are you trying to do? The syntax of using For in that code looks totally wrong. If you want to set an array formula, then use


Range("B4").FormulaArray = "formula"