se essa celula é fixa numa determinada linha usar a função soma nao resolve?

É que eu gostaria do comando em VBA, Prudêncio, pois esta operação será resolvida centenas de vezes e a soma das células acima não vai ser constante, por isso gostaria de um comando geral.

Teste esse

Sub Somar()

ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"

End Sub

Prudêncio, gostaria de saber como fazer pra utilizar uma variável para fazer esta soma.

Por exemplo. Fiz com que a variável contasse 7 células acima da célula atual e gostaria de somar essas 7. Depois disso em outro momento da macro ele vai fazer este mesmo procedimento mas dessa vez a variável contou apenas 4 células acima.

Você saberia adaptar o seu comando acima para atender a essa condição?

Seria mais ou menos assim:

> Contar células preenchidas por números acima;

> Somar as células acima

> Passar para a coluna seguinte

> Repetir o processo

Dim ultimALINHA

ultimALINHA = Sheets("Plan1").Range("A1000000").End(xlUp).Row
 Sheets("Plan1").Range("a" & ultimALINHA + 1).Value = Application.WorksheetFunction.Sum(Worksheets("Plan1").Range("A1:A3000"))

Messias, vou ser mais específico, o meu caso é exatamente como neste exemplo:

Valores I
3 I
5 I
1 I
1 I
(célula vazia) I

Gostaria de nesta célula vazia colocar a soma destes números que estão acima dela, que seria colocar na célula vazia =3+5+1+1

Porém a macro que desenvolvo repete este mesmo procedimento várias vezes e não é constante o número de células que contenham números acima, por exemplo:

Valores I
3 I
5 I
2 I
6 I
9 I
1 I
1 I
8 I
(célula vazia) I

Então gostaria de saber como somar APENAS os números que estão entre a célula vazia e a célula que tem escrito "Valores".