Totaling Columns

Hi its done like this:

Sub SumIt()

    Range("E1").Select ''''select the cell where you would like the results
    ActiveCell.FormulaR1C1 = "=SUM(C[-4])" ''''this example says that E1 will = the sum of a column -4 away
                                           ''''so we start at E -1=D -2=C etc if you took away the - then the
End Sub                                      ''''result would be the sum of column I

Regards,
Simon