文字の入っているセルをカウントしていくマクロ作成

マクロ初心者です。 文字を検索する列の範囲はD~Fとし、検索開始セルはDとします。 検索結果を表示するセルの先頭セルはAとし、A～Cに結果を表示させます。 もしD2に文字があった場合、A１に”１”を表示させます。 E３に文字があった場合は、A３に”１”を、B３に”１”を表示。 E５に文字があった場合、E列に文字が入ったのが２回目となる為、A５に”１”を、B５に”２”と表示。 上記のように、それぞれの列に何個文字があったのかカウントしていくマクロを作成したいのですが、作成できずに困っています。 よろしくお願いします。