マクロ削除再抽出する方法を教えて下さい。

VBA初心者です。

現在、転記元の文字が一致したワードを別シートに転記していくマクロを組んでもらいました。

しかしながら、一旦抽出したマクロを全て消去し、再度転記していく事が出来ずにいます。
今のマクロでは一旦転記すると、二度目を実行した際、抽出したシートの最終行からまた
同じ抽出をする状態です。

ご存じの方がいましたら、ご教授下さい。

質問者からの補足コメント

• https://gyazo.com/e27d8b5a80cbc06d699c2375b36c4446
  https://gyazo.com/110fa64802eecfd2ca8104e19c01fe92
  https://gyazo.com/8053edf04508fe2e45d23ddd5e2c19a0
  
  転記元にあるシートを”男”と”女”に分けるマクロで
  再び、マクロを起動させると別シートに”男”と”女”に
  分けたシートが全て削除されて新たに転記させる事が
  出来ると思うのですが、当方には分かりません。
  
  宜しくお願いします。

    補足日時：2022/11/26 11:44

• https://gyazo.com/4360e39af790391827c7405eabfff468
  
  マクロはこんな感じです。
  画像の都合上、マクロは若干加工しています。
  
  宜しくお願いします。

    補足日時：2022/11/26 11:58

• 400文字以上打つことが出来ないので、
  直接入力出来ません。
  
  どうすれば、打てますか？

  No.2の回答に寄せられた補足コメントです。 補足日時：2022/11/26 13:44

• URLは3シートです。
  因みにシートが増えた場合の方法も分かれば
  ご教授お願いします。

    補足日時：2022/11/26 13:46

• https://ideone.com/bJ7Jm3
  
  これでいいのか分かりませんが、
  貼りつけました。
  
  宜しくお願いします。

  No.5の回答に寄せられた補足コメントです。 補足日時：2022/11/26 14:51

• 20～30シートに対応出来るようにしたいです。

    補足日時：2022/11/26 14:53

No.6 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/11/26 15:41

下記URLにアップしました。

https://ideone.com/TfSr2u

修正箇所は30行目に
ws2.Rows("2:" & Rows.Count).ClearContents
を追加しただけです。

これで、以前の転記分が全てクリアされ、新たに２行目から転記されます。

この回答へのお礼

前回に引き続き、お世話になりました。

お礼日時：2022/11/28 13:35

No.5 回答者： tatsumaru77 回答日時： 2022/11/26 14:36

>因みにシートが増えた場合の方法も分かればご教授お願いします。

転記先のシートが３つ以上になるということでしょうか。
そうであれば、現行のマクロを改造しますので、下記URLにアップしてください。
アップ先URL
https://ideone.com/

アップ方法
①左下のボタンを選択し、Textを選択する。
②入力欄に”your text goes here”が表示されるので、その文字を削除する。
③マクロをコピーし、②の入力欄に貼り付ける。
④右下のRunのボタンをクリックする。
⑤結果が表示されるので、その結果が表示されたURLを控える。
⑥そのURLをこのサイトに提示する。

No.4 回答者： tatsumaru77 回答日時： 2022/11/26 14:01

>400文字以上打つことが出来ないので、直接入力出来ません。

>どうすれば、打てますか？

他のサイトにアップしていただく方法もありますが、
要件によっては前のマクロを無視して、新規にマクロを作る方法も考慮中です。
要件が、きちんと定まっていないので、まずは、要件をきちんと確認したいと思います。それまでは、マクロの提示は控えていただいて構いません。
No3の返信をまって、決めたいと思っています。

No.3 回答者： tatsumaru77 回答日時： 2022/11/26 13:51

１．ソースをみると、転記先へは再実行の場合でも、2行目から転記しています。

「二度目を実行した際、抽出したシートの最終行」の次へ転記することはないと思いますが、いかがでしょうか。

２．表の３列目の男、女に一致したシート名に転記していますが、
男、女は単なる例であり、実際は、他の名称なのでしょうか。
又、転記先のシート数はこの例では、２つ（男、女）ですが、
実際は３つ以上あるのでしょうか。

No.2 回答者： tatsumaru77 回答日時： 2022/11/26 12:31

補足ありがとうございました。

１．マクロは画像ではなく、テキストで提示していただけませんでしょうか。
こちらで、そのマクロを動作確認し、修正します。

２．シートは全部で３つでしょうか。
シート名は左側から順に
表、男、女
でしょうか。

No.1 回答者： tatsumaru77 回答日時： 2022/11/26 11:16

>現在、転記元の文字が一致したワードを別シートに転記していくマクロを組んでもらいました。

その質問をしたURLを提示してください。
そうしないと、回答者には、どのようなマクロなのか、シートのレイアウトがどのようになっているのかも、わかりません。