Adding a range in VBA

[Alfarata]

I need to Add/Sum a Range(A Column) in Code I know the Top and the Bottom, but do not know how to work with R1C1 Data Here is the code I have all works except the ActiveCell.FormulaR1C1 Line.
When I try to use my reference points it fails.
The TOP and BOTTOM will change based on the data inputed.

How can I use my Top and Bottom Reference Points?

Please Login or Register  to view this content.

[VBA Noob]

No need to select.

See if this points you in the right direction

Please Login or Register  to view this content.

VBA Noob

[Alfarata]

I could not get it to work
Even if I used it like this:

Please Login or Register  to view this content.

I did not get any results on the Sheet

[VBA Noob]

That the trouble with only giving a bit of the code. You get a bit of an answer.

I notice a

'

in the autofill line which will stop that line from running

'.AutoFill

VBA Noob

[Alfarata]

I did have a ' on that line once removed it wrote Zero's in H6 the TOP all the way down thru H53 Bottom + 6.


No Sum

Bill

[VBA Noob]

Bill,

You are selecting (which you should also avoid) H6 to H47 and then asking it to insert the formula

Please Login or Register  to view this content.

this will return a circular ref.

If you want help I suggest you post a sample with explaination of what your after

Please Login or Register  to view this content.

VBA Noob

[Alfarata]

Top and Bottom are VARIANT
Since I always Know the top and bottom and the columns remain the same I just need to total them

Please Login or Register  to view this content.

Thanks
Bill

[VBA Noob]

Top and Bottom are VARIANT

I was expected to see a sample workbook with all the code explaining the variable part

VBA Noob

[Alfarata]

Here is the whole file

[VBA Noob]

Try

Please Login or Register  to view this content.

VBA Noob

[Alfarata]

Thank you That works Great