excel VBA　について

画像のようにexcelファイルのD列に自動で通番を入力させたい。 フォームを利用して新しいデータは最終行に反映するように設定しています。 できれば、フォームの登録を押した時点でD列最終行に画像条件にあう通番を入力させたいのですがどうすればいいかわかりません。 今は、D列セルにCOUNTIFを使って条件を検索して通番を表示させているのですが、日々行が増え続けるためファイルが非常に重たくなってきたのでマクロにチャレンジしました。 マクロの知識はほとんどありません！ よろしくお願いします。