Да ама сега се получи друг проблем..пускам целия код за да стане по-ясно

If Target.Column = 10 Then
Range("C" & Target.Row) = Range("C" & Target.Row) - Range(Target.Address)


For i = 50 To 1 Step -1
If Range("E" + CStr(i)) <> "" Then Exit For
Next
Range("E" + CStr(i + 1)) = MyDate

Въпроса е че какъв то и клавиш да натисна цикъла се изпълнява
а на мене ми трябва само когато е положително число
а сега дори и клавиша "delete" да натисна пак ми се изписва датата