Excelで条件つき行削除について教えてください

質問

前回に下記のような質問をしました。
「下記のようなExcelの表があるとします。

　　　Ａ　 　　Ｂ　　 　　Ｃ　 　　　Ｄ　　　　 Ｅ
１　　　　 　会社A　 　会社B　 　会社C　 　 会社D
２　仕事A 23 45 67 27
３　仕事B 45 24 65 33
４　小計 68 69 132 60

この状態のときはいいのですが、

　　　Ａ　 　　Ｂ　　 　　Ｃ　 　　　Ｄ　　　　 Ｅ
１　　　　 　会社A　 　会社B　 　会社C　 　 会社D
２　仕事A 0 0 0 0
３　仕事B 0 0 0 0
４　小計 0 0 0 0

このときに小計という文字を認識し、その横にある数字を認識し、その条件がすべて「0」だった場合に処理を行いたいです。」
この回答で、
「Sub 小計全部ゼロ_行非表示()
Dim Rng As Range
For Each Rng In Range("A1", Range("A65536").End(xlUp))
　　If Trim(Rng.Value) = "小計" And _
　　　　Rng.Offset(, 1) = 0 And Rng.Offset(, 2) = 0 And _
　　　　Rng.Offset(, 3) = 0 And Rng.Offset(, 4) = 0 Then
　　　　Rng.EntireRow.Hidden = True
　　End If
Next Rng
End Sub」
このような回答がありました。
私は「小計」がＣ列にあり、「0」を検索したいのがＦ、Ｇ、Ｈ、Ｉにあります。
条件に合うように変更したのですがエラーが出てしまいます。
分かる方いましたら教えてください。」よろしくお願いします。

回答No.1

S-Fuji

そこまで回答を貰ったのでしたら、ご自分でも意味合いを考えましょう。
　ヒント
そのプログラムは、「小計」はA列に有る事、データがB・C・D・E列に有る事を前提に作られています。
　VBAにおけるOffsetの意味を調べましょう。

http://homepage1.nifty.com/kenzo30/index.htm
http://www.fuji.ne.jp/~excelyou/index.htm

参考URL：

http://homepage1.nifty.com/kenzo30/index.htm