[flinx]

In etwa:
Zelle mit Formel auswählen -> Makro ausführen:

vgl. .Paste vs. .PasteSpecial !!

Sub Makro1()
    Selection.Copy
    i = Selection.Row
    j = Selection.Column
    Range(Cells(i, j + 1), Cells(i, j + 4)).Select
    ActiveSheet.Paste
End Sub

bzw.

vgl. .Formula vs. .FormulaR1C1 !

Sub Makro2()
    i = Selection.Row
    j = Selection.Column
    For z = j + 1 To j + 4
    Cells(i, z).Formula = Selection.Formula
    Next    
End Sub