vba to fill header value to apply to below cells of nonblank

Dear experts

good morning

I have sheet called FILLDATES contains in column headings range(d2:BE2) some dates i want fill the dates till end of text value in column(C:C) macro apply to same procedure to every column heading to fill date to end cell...
please find the attachment you may understand better than what i describe here i inserted outlike file which is i am looking for output


thanks to all