Das funktioniert für Ihr Beispiel. Sie können dies auf mehrere Arten tun. Am schnellsten ist es vielleicht, den VBEditor zu öffnen, das Direktfenster (STRG + G) zu öffnen, diesen Text einzufügen und zu drückenENTER
Range("B2:B20").SpecialCells(xlCellTypeBlanks).Formula = "=IF(A2=C2,"""",B1)"
(Passen Sie den Startbereich nach Bedarf an. Beachten Sie jedoch, dass Sie in Zeile 2 beginnen müssen, aber ändern Sie die 20 an das Ende Ihrer Daten.)