エクセルで検索と貼り付けのマクロを組みたい
エクセルで次のようなマクロを組みたいのですがうまくいきません。
・C5からBB6の範囲において、Aという文字が入っているセルを検索し、その4行下1列右にコピーしておいたものを値だけ貼り付ける。
検索範囲を指定したいのは同じシート内に他にもAという文字が入っているセルがあるからです。このマクロを実行すると何故かC5からBB6の範囲以外のセルを選択し、貼り付けてしまいます。どこがいけないのでしょうか。ぜひ、教えてください。お願いします。
Range("C5:BB6").Select
Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlValues,LookAt:= _ xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _False, MatchByte:=False, SearchFormat:=False).select
Selection.Offset(4, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
補足
回答ありがとうございます。 質問の仕方が悪かったかもしれません。 A B C D E 1 あ け 1 6 11 2 い こ 2 7 12 3 う さ 3 8 13 4 え し 4 9 14 5 お す 5 10 15 6 か せ 7 き そ 8 く 9 のようなデータがあって、ActiveCellが C5 だったとき C5~E5までを選択するようなマクロが知りたいです。 ただし、列は不確定なのでCとは限りません。 簡単に言うと、ActiveCell から ActiveCell.Offset(0,***) までを選択したいです。