エクセル・見積表の抽出印刷方法？？？その２

先程（No.130709）は、沢山の方にご回答頂き、本当にありがとうございました。
同じ内容で更にお聞きしたい事があり、もう1度質問させてくださいっ！なお、この質問が終わり次第、先ほどの質問と併せて締め切らせて頂くつもりでおります。
先程、kukkychanさんにご回答頂いた内容で作成してみたところ、思い通りの表ができたのですが、項目が増えるとあの式ではエラーになってしまいました。そこで大変、あつかましいお願いなのですが、項目が下記の場合の式（構文）を教えて頂けないでしょうか？もし他にお分かりになる方がいらっしゃいましたら宜しくお願いします。

Ａ列＝商品名、Ｂ＝摘要、Ｃ＝数量、Ｄ＝単位、Ｅ＝単価、Ｆ＝金額、Ｇ＝備考

以上です。
素人の私には、あの構文はチンプンカンプンでアレンジの仕様もありません。トホホ。（悲）プロの方、宜しくお願い致します！！

No.1 ベストアンサー 回答者： tirta 回答日時： 2001/09/06 17:41

完成近しですね！　上手くいっているのなら

kukkychanさまの回答をそのまま一部変更でできるはず
変更点のみあげておきます
(4)メニューバーのファイルより
　　印刷範囲の設定を行なう
　　（Ａ列～Ｇ列を印刷）
作成手順： （以下略）
　Else
If Worksheets("Sheet1").Cells(i, 4).Text = 0 Or _
Worksheets("Sheet1").Cells(i, 4).Text = "" Then

の部分を
If Worksheets("Sheet1").Cells(i, 6).Text = 0 Or _
Worksheets("Sheet1").Cells(i, 6).Text = "" Then

に変更すればOKのはずです（変更は要は４が６になっただけ、
合計金額のセル位置の変更を反映させるだけ）
頑張ってくださいね