Circular reference error

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" <[email protected]> wrote in message
news:[email protected]...
>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)"
>
>
>