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...