列と行の名前（重複あり）が交差するセルに、データを入力したい

したい事と一致しています。参考プロクラム作成ありがとうございます。
列の名前ですが、D2みかん、H2りんごと4列置きとなります。（添付の画像参照願います。）
①上記対応で、プログラム変更内容を教えて頂けないでしょうか！
②また、その他の名前（バナナなど）も追加ありますので、D2：G2の範囲を追加できるように対応頂きたいです。（行は、問題なく追加でVBA実行できました。）

追加で、こちら提示のプロクラム方法で、同じ名前の表示方法も教えて頂くと有難いです。
こちら提示のプログラム間違いで、【改定前】TgCol = AAi　【改定後】TgCol = i　に改定願います。
お手数をお掛けしますが、いろいろ勉強させて頂きたく、宜しくお願いいたします。

No.1 回答者： tatsumaru77 回答日時： 2022/06/21 08:33

前の続きのような感じですが、前の質問が判りません。

そのため、なんのことかさっぱりわかりません。
前の質問のURLを提示されると、良い回答が得られるかと。