Columns("A:A").Select
Range("A65536").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-65535]C:R[-1]C)"
Range("A1:A4").Select
Selection.NumberFormatLocal = "0_ "
Range("A65536").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-65535]C:R[-1]C)"
Range("A1:A4").Select
Selection.NumberFormatLocal = "0_ "
C:\Program Files\Microsoft Office\Office\2052\VBAXL9.CHM