マクロ 選択範囲及び切り取り＆貼り付けについて教えてください。

質問

(1)sheet1のＡ列からＨ列までデータが入っています。
(2)検索機能を使って発見されたセル（検索されるデータはＡ列にのみ入っています。）からＡ～Ｈ列のデータが入っている最終行まで選択し切り取り。（場合によっては検索を２回してから選択範囲を決めます）
(3)sheet2のＡ２へ貼り付け

(1)～(3)の作業をsheet7まで繰り返します。
マクロの記録を行うと選択範囲が指定され別のデータの時にも前と同じ範囲しか指定できません。

例
sheet1検索ち→発見されたセル（この場合Ａ３）からＡ～Ｈ列の最終行（Ａ９）選択及び切り取り→sheet2のＡ２へ貼り付け→検索ち→文字が縦に２回続いている場合は次を検索→発見されたセル（この場合Ａ６）からＡ～Ｈ列の最終行（Ｈ８）選択及び切り取り→sheet3のＡ２へ貼り付け
sheet1　　　→　　　　　sheet2　　　→　　　sheet3
　ＡＢＣＤＥＨＧＨ　　　　ＡＢＣＤＥＨＧＨ　　ＡＢＣＤＥＨＧＨ
１ち　あいうえおか　　１　　　　　　　　　　１
２ひあいう　えおか　２ちあい　い　うえ　２ちあいうえお　か
３ちあい　い　うえ　　３　あいうえお　か　３ひあいうえおかき
４ゆあいうえお　か　４ちあいうおかき　　４ちあ　うえおき　
５ちあいうおかき　　５ゆあいうえおかき　
６　あいうえおかき　６ちあいうえお　か　
７ちあいうえお　か　７ひあいうえおかき
８ひあいうえおかき　８ちあ　うえおき　
９ちあ　うえおき　　
＊実際のデータは２０００行ぐらいデータが入っています。
＊見えずらくてすみません。

回答No.1

n-jun

Ａ列のセル値を上から順番に見ていって、”ち”が見つかったらカウントを入れる。
カウントが２になった時、その行から最終行までを切り取り別シートへ移動する。
ただし”空白”だった場合はカウントを０にする。

とても鈍行な方法ですけど。