How can compile data in a desired format?

Try this,

=LET(
  a,SCAN(,B6:B20,LAMBDA(x,y,IF(y="",x,y))),
  b,FILTER(HSTACK(a,B6:G20),D6:D20<>""),
  c,D5:G5,
  d,D6:G20,
  e,REDUCE("",UNIQUE(INDEX(b,,3)),LAMBDA(x,y,HSTACK(x,EXPAND(y,1,4,y)))),
  f,REDUCE("",UNIQUE(INDEX(b,,3)),LAMBDA(x,y,HSTACK(x,c))),
  g,DROP(REDUCE(0,UNIQUE(INDEX(b,,1)),LAMBDA(x,y,VSTACK(x,HSTACK(y,TOROW(FILTER(d,INDEX(a,,1)=y),1))))),1),
  VSTACK(e,f,g)
)