Soustraction cumulé colonnes VBA

Bonjour,

J'ai besoin d'un petit coup de pouce :
Alors voilà j'ai deux colonnes dans un tableau
B : Solde
C : Dépenses
Je voudrais avoir une fonction qui dès que je remplies une cellule dans la colonne C, prenne la valeur antérieure de la colonne B et lui soustrait le montant de la valeur de la colonne C.

Exemple :
B : Solde
1: 1 000
2: = 1000 - 150 (=850)
3: = 850 - 34

C : Dépenses
1:
2: 150€
3: 34€



J'ai essayé avec ce code là
Sub Soustraction()
Dim i As Integer
Dim j As Integer

ActiveSheet.UsedRange.Select

For i = 2 To Range("B1000").End(xlUp).Row
For j = i + 1 To Range("C1000").End(xlUp).Row
If Not IsEmpty(Range("Cj")) Then
Cells(i + 1, 2) = Cells(i, 2) - Cells(j, 3)
End If
Next j
Next i

End Sub

Mais j'ai l'erreur 1004 qui affiche : Erreur définition par l'application ou l'objet.

Merci d'avance pour votre aide