With oExcel.activeworkbook.activesheet .Columns(4).Rows( .usedrange.Rows.Count + 1 ).FormulaR1C1 = ; TEXTMERGE("=SUM(R1C4:R<<.usedrange.rows.Count>>C4)") Endwith