Код VBA для віднімання наступних чисел у списку від першого значення

У мене є список номерів. Я хочу використовувати перше число у списку як вихідне значення і відняти з нього наступні числа, використовуючи VBA.

Я зробив кілька невдалих спроб:

Function less(rng As Range)
    X = 0

    For Each cell In rng
    X = X - cell.Value

    Next

    less = X

End Function

Це призводить до віднімання всіх значень, включаючи перше. Наприклад, для послідовності 5,7,3,6 мій код дасть -21. Але я очікую -11.

Інший код, який я спробував:

Function less(rng As Range)
    X = 0

    For Each cell In rng
    X = X + cell.Value
    X = X - cell.Value

    Next

    less = X

End Function

Він просто переосмислює кожне значення і отримує 0.

Як я можу зробити перше значення у списку вихідним значенням, а потім зробити від нього віднімання наступних значень?

Мене тут не хвилює ознака будь-якого зі значень, лише логічна послідовність початку з першого значення та віднімання з нього наступних значень.

Примітка: Я новачок у VBA, і це моє перше кодування.

Редагувати (після коментарів fixer1234)

Інтерпретацію вашого питання як "пропустити перше значення з віднімання, але включити його як вихідне значення" можна досягти за допомогою наступної функції:

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

Це також буде відповідати вашому коментарю, де ви сказали, що діапазон 5, 7, 3, 6 повинен дати -11