エクセルマクロ シート間の照合＿上書き
マクロ初心者です。（エクセル２００３使用）
Sheet2の管理番号をSheet1の管理番号と照合し、同じであれば、数量など３項目を上書きするマクロを作ろうとしています。
（Sheet1：日々更新される元データ）全データ数約500件くらい
Ａ列 ,Ｂ, Ｃ, Ｄ, ・・・
１行 管理番号,品名,注文数量,出荷数量,・・・
（Sheet2：上書きさせたいシート）全データ数約80件くらい
Ｇ列 ,Ｈ, Ｉ Ｊ
９行 管理番号,品名,注文数量,出荷数量
↑シート２にある管理番号をもとに数量などを照合＆上書きをしたいのです。
■シート１も２も行数は日々変動します。
■シート１で、まれに同じ管理番号が２つ存在することがありますが、取り出したい数量などのデータは、常に１番目に照合する管理番号です。
Sub シート間照合と上書き()
Dim i As Integer
a = Worksheets("sheet1").Range("a65536").End(xlUp).Row
For i = 2 To a
If Worksheets("sheet1").Range("A2") = Worksheets("sheet2").Range("G9") Then
Worksheets("sheet1").Cells(1, i) = Worksheets("sheet2").Range("G9")
Worksheets("sheet1").Cells(2, i) = Worksheets("sheet2").Range("H9")
Worksheets("sheet1").Cells(3, i) = Worksheets("sheet2").Range("I9")
While Cells(1, i) <> ""
i = i + 1
Wend
End If
Next
End Sub
■上記 模索しながらマクロを作ってみたのですが、エラーにはならないのですが（F8）、まったく動きませんでした。
すみませんが、お力をかしてください。
よろしくお願いいたします。
お礼
了解しました。 改めて、後日質問いたします。 その際はよろしくお願いいたします。