VBAで作成したいのですがご伝授お願いします

質問

困っております何卒宜しくお願いします。
シフト表をEXCELで作成しています。列に担当者と日付、行は二段で上段は午前、下段には午後で役割別に記号が入ります、この表から日毎の実績表を作成しています、行は二段なのでセルを結合し、解除して上段にまとめ他のシートにコピーしてあります。

そこで、お願いです、今はマクロ（たぶん）で展開していますがセルに構文が入っているため他の人が消してしうことがしばしばなのでVBA構文に直したいのです。

=IF(OR($A3="",B$1=2),"",IF(Sheet2!B3="","",Sheet2!B3&"/"&COUNTIF(Sheet2!B$3:B3,Sheet2!B3)))これは上段にまとめたシートから置き換える構文です。

この構文で出来たシートから日毎のシートを作成するのに
=IF(ISERROR(INDEX(Sheet3!$A:$A,MATCH($B6&"/"&COUNTIF($B$6:$B6,$B6),Sheet3!B:B,0))),"",INDEX(Sheet3!$A:$A,MATCH($B6&"/"&COUNTIF($B$6:$B6,$B6),Sheet3!B:B,0)))を使っています。
この構文もお願いして使っているものであります。ワークシート関数でチャレンジしていますがうまくできません宜しくお願いいたします。

回答No.1

heno-_-

ご質問の内容だけでは、何とも把握しづらいです。

Excelでの計算式が書いてありますが、例えばA3のセルに何が入力されているのか、
こちらでは分かりかねます。

差支えの無い範囲で構いませんので、
サンプルとしてExcel画面の画像などを添付していただけないでしょうか。

他の方も回答しやすくなるのではと思います。