Macro creates new worksheet (already ready) but i need a little bit of data to be added

Hi,

I am attaching a macro file which works fine for me. Which creates new worksheets. But I want this macro not only to create new worksheets but also add automaticaly data from sheet 1 for columns - Vessel Code, Vessel Name, Voyage, Port and Operator.

Please do the needful as am struggling with this for very long time. Thanks