如何做＆＃34;做什么＆＃34; function使用列作为参数

Question

我在sub中使用了多个循环，并且遇到了有关空白单元格值的问题。以下是导致我出现问题的示例：

ActiveCell.FormulaR1C1 = "Host Name"
 r = 2
Do While Cells(r, 2) <> ""
Cells(r, 4).FormulaR1C1 = ""
r = r + 1
Loop

我希望循环运行直到B列没有值，并且我根据D列中的公式放置值。目前这是引用整行，如果没有一个值，则停止。有什么建议？谢谢！