VBA célula atual e não celula ativa

[joaobatistafh]

Pessoal,

fiz um código no VBA e usei a ActiveCell, mas dá um erro para o que eu quero, pois quando eu coloco a fórmula em uma célula e puxo pra baixo, a fórmula faz o cálculo com as células selecionadas e não com ela mesma.
Deu pra entender?

Meu código:

Function SomarAbaixo()

Dim soma As Double
Dim coluna As Integer
Dim linha As Integer
Dim linhaativa As Integer
Dim colunaativa As Integer

'Coluna S = 19
coluna = 19
linha = ActiveCell.Row
SomarAbaixo = 0

linhaativa = ActiveCell.Row + 1
colunaativa = ActiveCell.Column

If Cells(linha, coluna) = 1 Then

linha = linha + 1

While Cells(linha, 19) = 2

SomarAbaixo = Cells(linhaativa, colunaativa) + SomarAbaixo
linha = linha + 1
linhaativa = linhaativa + 1

Wend
End If

End Function

Exemplo.xlsx