Вот написал программу которая дожна брать значение из ячейки с первого листа и вычитать его из строки на втором листе при условие что ячейка из которой вычитают не пуста и ее значение не равно нулю вот код

 Dim x As Long
Dim y As Long
Dim myValue As Long
Dim myEmpty

myEmpty = ""

With ActiveCell
x = .Row
y = .Column
myValue = .Value
End With

For y = 1 To 256
If Worksheets(2).Cells(5, y) <> myEmpty Or Worksheets(2).Cells(5, y) <> vbNull Then
Worksheets(2).Cells(5, y) = Worksheets(2).Cells(5, y) - myValue
Exit For
End If
Next y

Но программа всеравно вычитает и из нуля и из пустой клетки, помогите пожалуйста найти ошибку

 

Спасибо, уже разобрался