Autosum table column

[account123]

Hi...

My current activecell is one of the cells in the Totals row in a table, i have so many tables with different row count so the "FormulaR1C1" method is not working for me cause each time the values are different, i am looking for a code to enable me to autosum the whole column of the table.

Each table is in a separate workbook and all of them are named "Table1".

I Can manage to select the right cell in each table with my current code, but i cant autosum this column.

what i need is something like this, for example:

1. application.activecell.sum(thiscolumn)!

2. activecell=sum(thiscolumn)

On the other hand i have 2 cells (BQ6 & BQ7) which have the right First and Last cell to sum as text i.e" cell BQ6 has the text "E3" and cell BQ7 has the text "E8", and the right cell range i need to sum is actually E3:E8, so i tried this code and it didn't work:

Dim i as Range
Dim b as Range

Set i = Range(Range("BQ5").Value)
Set b = Range(Range("BQ6").Value)

ActiveCell.FormulaR1C1="=Sum(i:b)"

Thank you so much...

 

[SpillerBD]

Summing a field from a Table.

=Sum(TableName[FieldName])

 

[account123]

thats looks good but the FieldName is different in every table, i can insert the correct field name in cell BQ8 but then i need o declare it at somethimg? i guess

 

[SpillerBD]

The Field name will always be the header name from the table.
Like tables would be best using like headers simplifying those relationships.

 

[account123]

ok what would be the proper Dim method here or can u give me an example with a code please

 

[SpillerBD]

thats looks good but the FieldName is different in every table, i can insert the correct field name in cell BQ8 but then i need o declare it at somethimg? i guess

BQRef= Range("BQ8").value
 ActiveCell.FormulaR1C1="=Sum(TableName,["&BQRef&"])"

 

[account123]

Error: SYNTAX ERROR