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?