困っていること・サポートしてほしいこと

コードの添削願います。
内容は、データを各シートに自動振り分けとなります。
慣れている方にとっては難しくないかと…
よろしくお願いいたします。

予算

2000円。