Zona somma

Funzione somma di Enzo

Cari ragazzi avrei un propblema di questo tipo
es. ho un elenco con dei valori da a1 a a30
in a32 ho la funzione somma che mi somma i dati in questa fascia di elenco
ora sono riuscito con una istruzione a dire alla macro che se trova fine elenco mi aggiunge nella cella successiva uin valore (es. in questo caso a31)
il problema sorge quando voglio che sempre tra la fine dell'elenco e la cella ci siano due righe di differenza
riesco a trovare fine elenco inserire il nuovo valore e a lasciare le due righe ma la funzione di somma in a 32 non si adegua ma lascia sempre la somma dei valori precedente
come si puo ovviare a questa cosa?

Più una di Cucchiaino

Ciao enzo.
questa è una delle soluzioni:

Sub allungazona()
Dim u As Range
Set u = Range("A1").End(xlDown)
With u
 .Offset(1).Resize(2).ClearContents
 .Offset(3).FormulaR1C1 = _
  "=SUM(R[-" & .Row + 2 & "]C:R[-3]C)"
End With
End Sub

Domanda per cucchianino di Enzo

Funziona - e ti ringrazio
vorrei farti altre due domande
se volessi attuare la stessa cosa ma il risultato porlo in in altra cella che non sia la colonna a
mi spiego meglio - somma da a1 a a8 salta due righe e poni il risultato in c11 e non a 11
la seconda e tornando alla prima soluzione se si volesse fare la somma di due colonne?