function - 查找关键字、替换和循环

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