условие

[Maka111]

перемещаемся по ячейкам, и находим 2 смежные у которых не нулевые значения

вот такой код

z = 0
While (Range("W5").Offset(z, -1).Value <> 0) And (Range("W5").Offset(z + 1, -1).Value <> 0)
   z = z + 1
Wend

в дебагере значения ячеек, которые удовлетворяют условию выхода из while wend 1 и 0, а должно при "не 0" и "не 0". что не учтено?

[mchip]

Попробуй так:

Z = 0
Do
Z = Z + 1
If (Range("d5").Offset(Z, -1).Value <> 0) And (Range("d5").Offset(Z + 1, -1).Value <> 0) Then Check = True
Loop Until Check = True

[EducatedFool]

Ну или даже чуть короче:

Sub test()
    Do
        z = z + 1
    Loop Until Range("w5").Offset(z, -1) And Range("w5").Offset(z + 1, -1) And z < 1000
    MsgBox z
End Sub

[mchip]

Ну или даже чуть короче:

Как всегда в точку!

[Maka111]

Благодарю за предложенные варианты. Все работает.
Но все же не могли бы Вы подсказать где у меня ошибка. Не хочется в будущем наступить на эти же грабли

[mchip]

Посмотри разницу между операторами While и Do...