die lösung ist:

Range("D15").Select
ActiveCell.FormulaR1C1 = "=SUM(R[9]C[2]:R[9]C[52])"
Range("D16").Select

herausgefunden per makro Aufzeichnung

ich wird das jetzt fertigmachen und im Büro so tun als ob ich noch 10 Wochen damit beschäftigt bin...