エクセルの複数シートで支払調書を作成したい 2

質問

http://oshiete1.goo.ne.jp/qa2525609.html

の続きです・・・

リストのシートをを参照させて、別シートの支払調書にデータが
全部入るような感じで作成したいと思っています。

リスト

　Ａ列　　Ｂ列　　　　　　　　　Ｃ列　　　
１行　名前　　住所　　　　　　支払い総額・源泉税額（2行目）　　
２行　鈴木　　千葉県・・　　　　1,000
３行　　　　　　　　　　　　　　　100
４行　山田　　東京都…　　　　1,000
５行　　　　　　　　　　　　　　　100　　

支払調書
Ｇ４：住所
Ｇ５：名前
Ｉ７：支払い総額
Ｍ７：源泉税額　

作成したマクロの一部です。
記載していない箇所は前回のものを使わせていただきました。

For Each R In S.Range("A2", S.Range("A2").End(xlDown))
With Worksheets("支払調書")
.Range("G5").Value = R.Value
.Range("G4").Value = R.Offset(0, 2).Value
.Range("I7").Value = R.Offset(0, 15).Value
.Range("M7").Value = R.Offset(1, 15).Value

前回のものをそのまま使わせて頂き、作ってみたのですが
支払調書のM7のセルに源泉税のデータが入りません。

どのように直せばいいのでしょうか。

教えてください！

回答No.1

zap35

オブジェクトSはシートのようですね。
>Set S = Worksheets("株主データ")

Rは"株主データ"シートのA列のセルですから
.Range("I7").Value = R.Offset(0, 15).Value
.Range("M7").Value = R.Offset(1, 15).Value
では"株主データ"シートのP列の値をセットすることになります。
（A列の１５列右側はP列）

　　　Ａ列　　Ｂ列　　Ｃ列　　　
１行　名前　　住所　　支払い総額・源泉税額（2行目）　　
ならば
.Range("G4").Value = R.Offset(0, 1).Value
.Range("I7").Value = R.Offset(0, 2).Value
.Range("M7").Value = R.Offset(1, 2).Value
ではありませんか？

補足

zap35さんありがとうございます。

あっ　すみません

　　Ａ列　　Ｂ列　　Ｃ列　　　
１行　名前　　住所　　支払い総額・源泉税額（2行目）　　

間違ってました。

　　Ａ列　　Ｂ列　　Ｐ列　　　
１行　名前　　住所　　支払い総額・源泉税額（2行目）

です。すみません。
見直してみましたが、源泉税額が0になってしまいます。

どうしてなのでしょう。
よろしくお願い致します。