Soru Ekledikçe Toplamdan Çıkarma

[sirkülasyon]

Hayırlı Akşamlar

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("K3:K" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    On Error GoTo Son
    Application.EnableEvents = False
    If Target = 0 Then
        Cells(Target.Row, "I") = Cells(Target.Row, "I") - Veri
    End If
 
Son: Application.EnableEvents = True
End Sub

Yukarıda ki kod Hücreden rakam sildikçe toplamdan düşüyor. Bunun yerine rakam ekledikçe Toplamdan düşmesi için nasıl revize edilebilir?
Saygılarımla

 

[sirkülasyon]

If Target = 0 Then
kısmını
If Target > 0 Then yaptığımda da çıkarmayı bazen yapmıyor