查找关键字，替换和循环

Question

我编写了这个脚本来查找关键字“S”，然后在第三列中执行公式。到目前为止，它只找到“S”的第一个实例。我希望它继续搜索并为存在“S”的每一行执行公式。有人可以帮我循环下面的代码吗？非常感谢。

Worksheets("Sheet2").Activate
Dim c As Range
Set c = Range("B:B").Find _
(what:="S", LookIn:=xlFormulas, _
lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not c Is Nothing Then c.Offset(0, 3) = c.Offset(0, 1) * c.Offset(0, 2) * 0.05