help on vba code to make list continue column and change date format

dear expert

i have vba code to copy 4 column and create new workbook with 4 column, after date copy and create as new workbook date format in D:D column gets uneven, its not standard format i want apply date format for 4th column of D:D (mm-dd-yyyy), i want this action along with marco NWB macro....

help on this

find the attachment...............