VBAで特定の文字を探して隣のセルに色を付けたい

条件付き書式だと、列が多すぎて大変な作業を、VBAでできたらいいなと思っております。
お知恵をお貸しくださいm(_ _)m

A列　田中　佐藤　吉田…
B列　100 200 300…
C列　10% 20% 30%…
D列　松田　田中　鈴木…
E列　500 200 400…
F列　50% 20% 40%…
……
列が横表記になってしまって見辛くて申し訳ないのですが、上記のような列がエクセルの列目一杯まであります。
これを、A列のセルが「田中」だったら、そのセルと隣のB,C列のセルを黄色にする、
更にその次のD,E,F列でも同じことをする、更にその次の3列も、、、
という作業をしたいのですが、どなたかご教示いただけますでしょうか。
条件付き書式で3列ごとに設定していましたが、列数が多すぎてめげました…
こちらで一発解決方法を教えていただけたら、とてもとても助かります。
よろしくお願い致します。

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

• 分かりづらくて申し訳ありません。
  エクセルVBAで作れるとありがたいです。
  また、データの前に見出しやら何やらが5行目まであり、実際のデータはF6セルから始まります。
  しかも、よく見たら、3列目と次の3列目の間に1列入ってる箇所もありました…
  例えば、全列を上から下に「田中」が入っているか探して、あったら該当のセルと、その隣のセル、更にその隣のセルの3セルを黄色にする、というVBAはできますでしょうか？
  「田中」のセルとその隣2セルの計3セルを黄色にするという条件は常に一緒です。
  また、使用タイミングは今回の一度きりですが、同じようなファイルがたくさんあって、全ふぁいに色付けが必要です。
  なので、ひとつVBAを組んでいただける大変助かると思い、質問させていただきました。
  いろいろ分かりづらい点が多くて申し訳ありません。
  どうぞよろしくお願い致します。

    補足日時：2021/02/22 17:59

• 

  tatsumaru77様、その通りでございます。
  F列以降の右側全列を検索、検索値は「田中」で決め打ちで大丈夫です。
  「田中」の列と隣の2列の全3列は必ず並んでいます。
  3列、3列、空白列、3列、、、
  みたいな感じで横にずっと連なっている状態です。
  ものすごい量で途方に暮れています…
  何卒よろしくお願い致します。

  No.6の回答に寄せられた補足コメントです。 補足日時：2021/02/22 19:18

No.3 回答者： めぐみん_ 回答日時： 2021/02/22 14:46

こう言うのって、

・どのタイミングでやるのか？
・検索値はどのような方法で決断するのか？
とかが必要な気が初級者には必要な感じです

No.2 回答者： tatsumaru77 回答日時： 2021/02/22 13:29

No1です。

添付図を忘れました。

No.1 回答者： tatsumaru77 回答日時： 2021/02/22 13:28

１．レイアウトは添付図であってますか。

（1行目は見出しではなく、1行目からデータがある）
２．「田中」固定で検索して良いのでしょうか？