Prova questo codice
Codice:
Sub Somma()
Set zona = Range([B3], [B3].End(xlDown))
[B3].End(xlDown).Select
ActiveCell.Offset(1, -1) = "Totale"
ActiveCell.Offset(1, 0) = WorksheetFunction.Sum(zona)
End Sub
Alla 1° riga seleziono la zona : nella 2° seleziono l'ultima cella
nella 3° mi sposto di una riga e metto la funzione somma
Puoi mettere tutti i dati che vuoi e associa il lancio della macro ad un pulsante nel foglio.
Nella colonna B3 ti fà il totale e nella colonna A e alla stessa riga ti scrive Totale
Ciao
Segnalibri