重複予定のうち2番目以降が空白行になっているところを、上に詰めて表示したいのですね。
●UNIQUE関数を使う方法
=LET(r,UNIQUE(リスト!$E2:$H500),CHOOSECOLS(FILTER(r,INDEX(r,,3)=B$2,""),4,1))
(半平太さんの式と同じような方法です)
●現在のような作業列を使う方法
リスト
A2
=IF(COUNTIFS($G$2:G2,G2,E$2:$E2,E2)=1,CONCATENATE(G2,"_",COUNTIF(A$1:A1,G2&"_*")+1),"")
カレンダー
B3
=IFERROR(VLOOKUP(CONCATENATE(B$2,"_",$A3),リスト!$A:$H,B$1,0),"")
C3
=IFERROR(VLOOKUP(CONCATENATE(B$2,"_",$A3),リスト!$A:$H,C$1,0),"")