Editar (após comentários do fixer1234)
Interpretar sua pergunta como "pular o primeiro valor da subtração, mas incluí-lo como um valor inicial" pode ser obtido com a seguinte função:
Function less(rng As Range)
Dim x, i As Integer
Dim cell As Range
For Each cell In rng
If cell.Address = rng.Cells(1, 1).Address Then
x = cell.Value
Else
x = x - cell.Value
End If
Next
less = x
End Function
Isso também estará de acordo com o seu comentário, onde você disse que um intervalo de 5, 7, 3, 6 deve render -11