Цикл for each и if then (поиск текста в ячейках)

[ТРИУМФ]

Вытащить макросом данные из массива если находит слово дебет, если нет - 0

Формулой знаю, как а как именно макросом через цикл for each и условием if then , никак подскажите пожалуйста

[doober]

Можно так

Sub дебет()
    Dim cel As Range
    For Each cel In Range("A4:A32").Cells
        If InStr(1, cel.Value, "дебет", vbTextCompare) > 0 Then
            cel.Offset(0, 3) = cel.Offset(0, 1)
        Else
            cel.Offset(0, 3) = 0
        End If
    Next
End Sub

[ТРИУМФ]

спасибо большое