查找excel中当前行的特定单元格中的string

我使用exel 2016，并开始我的第一个VBA脚本。 我有一个Excel列中的每一行不同的string行的Excel文档。我想填充列D与基于条件的条目。 请看附图

我怎样才能写一个VBAmacros，它将运行在列D和E上，并在每一行中读入B列中的条目，然后对写入的答案做出判断，我在想这样的伪代码：

Search for string in cell in Column B for current Row I'm on If string contains "McDonald's" then populate cell in column D for current Row as "Lunch" and in column E as "Visit". Move to next Row Carry on with moving through Row's until you reach last Populated Row. 

任何帮助，将不胜感激。