Hallo Erwin,
sorry, aber Du hast Dich wieder mal etwas unverständlich ausgedrückt.
Es wäre besser, Du stellst die Fragen etwas mehr im Zusammenhang und nicht immer scheibchenweise.
Falls ich Deine Formeln richtig analysiert habe, müsste auch folgender Code funktionieren.
Er schreibt in 4 untereinander liegenden Zellen einer Spalte, ab Selection, die gleiche Formel, bei der der Vergleichswert des 2. Arguments immer um 1 erhöht wird.
Wenn ich falsch liege, bitte richtig erklären und die einzutragenden Formeln in der A1-Schreibweise angeben.
Teste mal selbst.
Option Explicit
Sub test()
Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row + 3, Selection.Column)).FormulaLocal = _
"=SUMMENPRODUKT(($E$5:$E$311=7202)*($A$5:$A$311 =ZEILE(A1)))"
End Sub
Gruß
Rainer