マクロについて教えてください
マクロの超初心者です。
数式を入力しているのではなく、配付物をエクセルで作成しているのですが、同じもの（氏名や項目は違いますが）を100枚ほど作成しているのでマクロを・・・と思ったのですがやり方が全く分かりません。
sheet1からsheet2に下記のようにデータを写したいのですが、やり方を教えてください。
●氏名が入力されています
sheet1（A9) → sheet2(C2)
sheet1（E9) → sheet2(C5)
sheet1（I9) → sheet2(C8)
●項目1
sheet1（A8) → sheet2(E3)
sheet1（E8) → sheet2(E6)
sheet1（I8) → sheet2(E9)
●項目2
sheet1（A18～D18の結合セル) → sheet2(E2)
sheet1（E18～H18の結合セル) → sheet2(E5)
sheet1（I18～L18の結合セル) → sheet2(E8)
と反映させたいのですが、250行あるのですが、
簡単にマクロで出来ないでしょうか？？
ちなみに↓コレが上記の内容で作ってみたものです。
わかりずらい質問でスイマセン。
Range("A9").Select
Selection.Copy
Sheets("sheet2").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("A8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("I8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("A18:D18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("E18:H18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("sheet1").Select
Range("I18:L18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("sheet2").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
お礼
koba8888さん＞ありがとうございます。 ご連絡遅くなりすいません。 シートを順に選択していく方法がわからないので、 とりあえず1つずつ書いていこうかと思います。 Selection.End(xlToRight).Offset(0, 1).Select 'セルF4を含む表の一番右の一つ右を選択する これを活用したいと思います♪ありがとうございました＾＾