Как найти ячейку с заданным текстом, проверить наличие пустых ячейк справа и записать в них 0

[Squarded]

Здравствуйте!
Писал код для перебора файлов в папке и их редактировании (вставка ячеек и тд), все вроде сделал, а вот с этим никак не могу разобраться:

В столбце В необходимо найти ячейку содержащую текст Итого по всем:, и проверить в столбцах с D по G, справа от этой ячейки если есть пустые ячейки, то поставить них 0. я понимаю что нужно Range.Find использовать, но не могу записать эту строчку

Помогите если не трудно, пожалуйста!

P.S. приложил пример файла

[EducatedFool]

Проверяйте:

Sub test()
On Error Resume Next
Intersect(Range("b:b").Find("Итого по всем:", , xlValues, xlPart).EntireRow, Range("d:g")).SpecialCells(xlCellTypeBlanks).Value = 0
End Sub

[Squarded]

Спасибо большое, всё работает!!!

[Squarded]

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

[Squarded]

а если ячейку отчистить, а потом макрос запустить, он ставит ноль. как прописать в Find это?

[Squarded]

Разобрался, 1С там пробел ставит.

Как прописать чтобы искались ячейки в "d:g" спарава от Итого по всем: содержащие знак пробела и приписывалось им ноль?

[kuklp]

Sub test()

[kuklp]

Sub test()
    On Error Resume Next
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlWhole, SearchOrder _
                                                             :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Intersect(Range("b:b").Find("Итого по всем:", , xlValues, xlPart).EntireRow, Range("d:g")).SpecialCells(xlCellTypeBlanks).Value = 0
End Sub

[Казанский]

Так можно поставить 0 в пустые и нечисловые ячейки:

Sub test()
On Error Resume Next
With Intersect(Range("b:b").Find("Итого по всем:", , xlValues, xlPart).EntireRow, Range("d:g"))
    .SpecialCells(xlCellTypeBlanks).Value = 0
    .SpecialCells(xlCellTypeConstants, 22).Value = 0
End With
End Sub

[Squarded]

Спасибо огромнейшее!!!!