Upsz... Ez a sor:

.Formula = c.Formula

nem jó, cseréld ki erre:

.FormulaR1C1 = c.FormulaR1C1