I need to do a sum of a column using a macro, but having trouble trying to
determine how to place this sum at the bottom of the same column. I cannot
to locate the actual ammount under the same column I am totalling as this
becomes a circular reference. Consequently, I shifted it down under a
previous column. I have included a sample data and my current macro below.
How do I shift this back under the desired column (D)? Any ideas? Or is
there a way to Sum it and keep it under the D column in the first place?

Thanks! This Forum is great!

Rick

Sample Data
01 150080380549 0000718651 000000002080
01 150080380549 0000718652 000000002912
02 150080380549 0000001219
0337311847

Current Code:

ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "02"
ActiveCell.Offset(0, 1) = "150080380549"
ActiveCell.Offset(0, 2).Formula = "=COUNT(A:A,01)-2"
ActiveCell.Offset(3, 2).Formula = "=Sum(D:D)"

activecell.offset(3,2).Formula= "=sum(a1:a"&cstr(activecell.Row-1)&")"

--
Kind regards,

Niek Otten

Microsoft MVP - Excel

"Rick" wrote in message
...
I need to do a sum of a column using a macro, but having trouble trying to
determine how to place this sum at the bottom of the same column. I
cannot
to locate the actual ammount under the same column I am totalling as this
becomes a circular reference. Consequently, I shifted it down under a
previous column. I have included a sample data and my current macro
below.
How do I shift this back under the desired column (D)? Any ideas? Or is
there a way to Sum it and keep it under the D column in the first place?

Thanks! This Forum is great!

Rick

Sample Data
01 150080380549 0000718651 000000002080
01 150080380549 0000718652 000000002912
02 150080380549 0000001219
0337311847

Current Code:

ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "02"
ActiveCell.Offset(0, 1) = "150080380549"
ActiveCell.Offset(0, 2).Formula = "=COUNT(A:A,01)-2"
ActiveCell.Offset(3, 2).Formula = "=Sum(D:D)"