Hola a todos;

He creado una macro que suma toda la columna "G" de una tabla"Tabla1" y arroja el resultado en la celda activa.

Macro:

Sub añadirTotalTabla()
 ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
End Sub

Lo que no sé como programar es que el resultado se aloje en la última fila activa sin necesidad que yo seleccione manualmente dicha celda.

Adjunto macro.

Saludos y buena semana a todos.

Libro1.xlsm

Lo he intentado así y parece que va. 

Adjunto código y me dais vuestro parecer.

Sub añadirTotalTabla()
uf = ActiveSheet.Cells(Rows.Count, "G").End(xlUp).Row + 1
Cells(uf, 7) = "=SUM(R[-5]C:R[-1]C)"
End Sub

Saludos.

Hola

Las tablas estructuradas ya traen esa caracteristica, una vez la activas automaticamente toma la ultima fila para el total, ademas no solo SUMA se puede usar, no todo es macros o Vba

Mira la imagen

 

Saludos

Gracias Gerson, desconocía esta función.  Lo tendré en cuenta. 

Muy amable y muy  agradecido. 

 

Lo mismo con VBA:

ActiveSheet.ListObjects("Tabla1").ShowTotals = True

 

Bo día Antoni;

Gracias por responder. 

Veo que con la macro también se puede hacer.

Un abrazo e agradecido como sempre.

Bo nadal MAESTRO.