excel - Excel VBA 不要な場合に列をスキップする出力範囲

Question

間違ったタブから正しいタブにレコードを移動するのに役立つ VBA を作成しました。出力はリフレッシュごとに異なるサイズになる可能性があるため、ダイナミックレンジを合計するロジックを作成しました。

私が経験している問題は、コード化した SUM 出力にあり、特定の列をスキップしたくない場合にスキップします。スキップされる列は、、、H (col 8)およびL (col 12)ですR col (18)。設計されたカラム出力範囲は3 to 41です。出力は、シートを生成するテンプレートの以前の設計 (私自身の設計ではない) によってハードコードされ、指定された列内のセルの正しい範囲を合計しない SUM 式を上書きするように設定されています。

For x = 3 To 41
    Set r = Range(Cells(6, x), Cells(6, x).End(xlDown))
    r.End(xlDown) = WorksheetFunction.Sum(r)
Next x