Olá Carmone,

Não seria mais prático usar = (1 + (2,8 * B$1) + (0,65 * $A2)) na célula B2 e arrastar para outras células.

Com relação a sua função:
O valor de X e Y são passados pela célula e coluna ativos; então todas a linhas/colunas em que for referenciada a função, receberão os mesmos valores da célula ativa; ou seja um único valor para qualquer local onde a função estiver.
Para esse tipo de função é necessário passar as "coordenadas" para cada posição onde for referenciada; mesmo procedimento utilizado na programação do Excel.
Exemplo:= Soma(A2:B2)
Voçe pode utilizar (Sintaxe--> equal(A2;B1); equal(A2;C1)....)

Function Equal(rRef As Range, cRef As Range) As Double
Application.Volatile

Equal = (1 + (2.8 * cRef.Value) + (0.65 * rRef.Value))

End Function

.
ou
Sintaxe--> equa0(lin();col()

Function Equa0(Lin As Integer, Col As Integer) As Double
Application.Volatile

Equa0 = (1 + (2.8 * Cells(Lin, 1).Value) + (0.65 * Cells(1, Col).Value))

End Function