このようなVBAを作りたいのですが

質問

以下のようなデータがあります。
各セルの値は1～100までのランダムな値が入っています。
使用している列はAからFまでです。
例示すると、
A列　B列　C列　D列　E列　F列
1 　 　24 　 75 　　 69 　　 34 　　 2
55　　 66 　　47 　　28 　　92 　　53
13　　 21 　 63 　　 32 　　47 　　61
44 　 　3 　　 17 　　81 　　49 　　36
以下続く

ような形です。
そして、A列に1が200回出てきたら、そこまでのデータを（AからF列まで全てのデータ） を新たなシート１にコピーしたいのです。
この作業を繰り返したいのです。
次回　A列に１が400回出たところまでのデータを新たなシート２にコピー。
次々回　A列に１が600回 出たところまでのデータを新たなシート３にコピー。
｛続く｝
最終回　１が200の倍数丁度あるとは限らないので、空白になったら、そこまでのデータを新たなシートXにコピー。

といった感じです。
A列に1が何回出てくるかを基準に、データを分割するのが目的です。

言葉不足なので簡易化した例を挙げると、
１が２回出たら…という条件だとします。
A列　→新シート１のA列　　新シート２のA列　　新シート３のA列　
２　　　　　　２　　　　　　　　　　６　　　　　　　　　　　２
１　　　　　　１　　　　　　　　　　７　　　　　　　　　　　１
３　　　　　　３　　　　　　　　　　１
１　　　　　　１　　　　　　　　　　８　
６　　　　　　　　　　　　　　　　　５
７　　　　　　　　　　　　　　　　　１
１
８
５
１
２
１

のようにデータを分割したいのです。
普段、マクロを使ってデータから数値を取ることはするのですが、ある一定の範囲を新たなシートにコピーといった作業はしたことがないので、どのようなVBAを書けばいいのか見当がつきません。
分かる方、お手数をおかけして申し訳ないのですが、よろしくお願いします。

回答No.1

imogasi

質問では１が所定回数加わると、初めからのデータを別シートへ写すような表現になっている。実例では前回移した以後のこれまでのデータになっている。たぶん実例の方だろう。
ーー
これはA列に１が所定回数入力されたら、すぐに所望の処理をするのを希望ですか。
こんな、回答者にパズルを解かす（本質問は課題の丸投げタイプですよ）ような方式をやめて、データが全部入力し終わったら、処理する（バッチ処理）か、A列で 所定回数だけ１が現れたら、（COUNTIF関数でセルに１の件数をだし、気づいて）、処理のコマンドボタンを押すとかが良いのではないですか。処理が重くなったりチェンジイベントは扱いにくいと思うが。