Hola soy nuevo con VBA, y estoy tratando de generar las sumas de las filas en una PivotTable con una Macro. El problema es que las filas se actualizan y pueden generar mas valores. Me gustaria arreglar el codigo para que me genere la suma de las filas al final de la ultima de las filas sin importar cuantas la PivotTable tenga.

Codigo: 

Sub Suma()

Dim Celda As Object, Rango As Range, LastCol

  LastCol = Cells(5, Columns.Count).End(xlToLeft).Select

    ActiveCell.Offset(0, 1).Value = "SUMA TOTAL"

Set Rango = Range ("D6:D16) ------------------ QUIERO CAMBIAR ESTA LINEA EN VEZ DE TENER LA SUMA DE LAS FILAS EN ESA COLUMNA, TENER LA SUMA CUANDO TERMINE EL NUMERO DE FILAS 

For Each Celda In Rango

Celda.Value = Celda.Offset(0,-2).Value + Celda.Offset(0,-1).Value ------------------------------ ESTA EN LA SUMA DE LA COLUMNA B Y C, PERO AHOARA TENGO VALORES EN LAS COLUMNAS B,C,D,E,F,G...

Next Celda

End Sub

 Gracias,