Dim MaCell As Range
For Each MaCell In Range("H14,H23,H32,H41,H50,H59,H68,H77,H86,H95,H104,H113,H1122,H131,H140,H149,H158,H1167,H176,H185,H194,H203,H212,H221,S14,S23,S32,S41,S50,S59,S68,S77,S86,S95,S104,S113,S122,S131,S140,S149,S158,S167,S176,S185,S194,S203,S212,S221")
MaCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
Next