Macro to do Auto-sum on a range

[Gregs]

Hi, I need a macro to do an auto-sum formula at the bottom of a range of data. You will see in the attached spreadsheet, I need a formula in columns C to J. i need the macro to automatically create an auto-sum formula in next row following the data and it needs to be created in columns C to J.

THANKS FOR HELP!!

ATB - 7 Buckets Report_150503.xls
	A	B	C	D	E	F	G	H	I	J
6697	31803	Customer1	9.08	9.08	0	0	0	0	0	0
6698	31811	Customer2	278.91	223.88	42.44	12.59	0	0	0	0
6699	31817	Customer3	208.44	69.48	69.48	69.48	0	0	0	0
6700	15339	Customer4	60.45	60.45	0	0	0	0	0	0
6701	31825	Customer5	1,811.40	0	0	0	0	0	1,811.40	0
6702	33309	Customer6	9.08	9.08	0	0	0	0	0	0
6703	31827	Customer7	44.68	22.44	22.44	0	-0.2	0	0	0
6704	31829	Customer8	62.57	156.57	0	-94	0	0	0	0
6705	31833	Customer9	27.24	27.24	0	0	0	0	0	0
6706	8197	Customer10	9.13	9.13	0	0	0	0	0	0
6707	33182	Customer11	-90.73	9.08	0	0	-99.81	0	0	0
6708	31873	Customer12	108.9	0	0	0	0	0	108.9	0
6709	31875	Customer13	82.28	0	0	82.28	0	0	0	0
6710	31893	Customer14	-30.2	27.03	0	0	0	-57.23	0	0
6711	15649	Customer15	84.51	84.51	0	0	0	0	0	0
6712	15517	Customer16	126.95	22.88	75.03	9.68	9.68	0	9.68	0
6713		Customer17	-10,192.04	0	-4,360.11	-3,129.70	-2,410.16	-220.4	-71.67	0
6714			REQUIREAMACROTOCREATEANAUTO-SUMFORMULAHEREFORTHEDATAABOVE
sheet1

 

[Andrew Poulsom]

Try this:

Sub Test()
    Dim Rng As Range
    Dim c As Range
    Set Rng = Range("C1:C" & Range("C1").End(xlDown).Row)
    Set c = Range("C1").End(xlDown).Offset(1, 0)
    c.Formula = "=SUM(" & Rng.Address(False, False) & ")"
    c.Copy c.Resize(1, 8)
End Sub

 

[Legacy 12630]

Or :-

With [C1].End(xlDown)(2).Resize(, 8)
.FormulaR1C1 = "=SUM(R[-" & .Row - 1 & "]C:R[-1]C)"
End With