Campos calculados

Que tal

Tengo una base de datos que se alimenta de un formulario.
De esa base de datos. Tengo encabezados Fecha – transacción – Semana – Mes

Por ejemplo
Fecha transacción Semana Mes
11/4/2009 300.00 45 Noviembre
11/5/2009 345.00 45 Noviembre
11/4/2009 -(90.00) 45 Noviembre
11/4/2009 -(200.00) 45 Noviembre
11/11/2009 -(100.00) 46 Noviembre

Ahora. De esa base de datos tengo una tabla y grafico dinámico (ya diseño
predefinido). Tabla dinamica esta en la hoja “So far”, el grafico esta como
objeto en la hoja “Home”.
Hago esto para actualizar la tabla / grafico dinámico.

ftg = WorkSheet(“Data”).Range("x65536").End(xlUp).Offset(1, 0).Row

Sheets("So far").Select
Range("A5").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Data!R2C24:R" & ftg & "C28"

Y si lo actualiza perfectamente.
En la tabla grafico dinámico agregue un campo calculado que es la suma de
las semanas por ejemplo (45 + 46) + 47 + 48 …etc).

La pregunta es:
Si lleno otro renglón por ejemplo:
11/18/2009 940 47 Noviembre

Como puedo hacer una macro para que agregue al campo calculado la semana 47
y el resto de las semanas que se agreguen a la base de datos automáticamente
(45 + 46 + 47 + 48 …etc.). y que el campo calculado lo ponga hasta el final
de la tabla pivote.


Este es el código cuando lo agrego pero no puedo hacer que se actualice
automáticamente

ActiveSheet.PivotTables("PivotTable6").PivotFields("Semana"). _
CalculatedItems.Add "So far", "='45'", True



Mil gracias por su ayuda
Manny