Это работает для вашего примера. Вы можете сделать это несколькими способами. Самым быстрым может быть просто открыть VBEditor, открыть Immediate Window (CTRL + G), вставить этот текст и нажатьENTER
Range("B2:B20").SpecialCells(xlCellTypeBlanks).Formula = "=IF(A2=C2,"""",B1)"
(Отрегулируйте этот начальный диапазон по мере необходимости. Обратите внимание, что вы должны начать со строки 2, но измените 20 на любой конец ваших данных)