function - キーワードの検索、置換、およびループ

Question

このスクリプトは、キーワード「S」を検索し、3 列以上の列で数式を実行するように記述しました。これまでのところ、「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