Kodda hata var

[yesilyurtlu]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F2:F150]) Is Nothing Then

If IsNumeric(Target.Value) And Target > 10 Then
Target.Offset(0, 2).Value = Target.Value - 10

ElseIf IsNumeric(Target.Value) And Target <= 10 Then
Target.Offset(0, 2).Value = 0

ElseIf IsNumeric(Target.Value) And Target <> 10 Then
Target.Offset(0, 2).Value = 10 - Target.Offset(0, 2).Value


ElseIf Not Intersect(Target, [F2:F150]) Is Nothing Then
If IsNumeric(Target.Value) And Target > 10 Then

Target.Offset(0, 1).Value = Target.Value - Target.Offset(0, 2).Value

ElseIf IsNumeric(Target.Value) And Target <= 10 Then
Target.Offset(0, 1).Value = Target.Value

End If
End If
End If
End Sub

Üstadım Hatamı bulmamda yardımcı olabilir misiniz? Koyu olan kod çalışıyor. Diğer kod pasif kalıyor