Copy value of one cell and past in new column only where data exists

Hi, I need to transpose the value of 1 cell into a column's cells, but only where there is data in the row.

This is the current speadsheet "Copy SIP FEDEX DOWNLOAD" attached. I already have a macro that sorts it to the format I need, the result shown in "SIP FEDEX DOWNLOAD" :

Please Login or Register  to view this content.

It works perfectly, but I now need to add the date from Cell A2 into an extra column A, which the VBA will need to create, before the macro code that already deletes row A.

It already creates 2 columns so I guess it will need now to create 3. I only want it to copy this date to rows that have data in them, eg in the attached spreadsheet there are 4 rows.

I guess this is probably a simple task for the enlightened but not for me! I can make it insert an extra row, but that's as far as my knowledge will take me.

Help Again!

Kind regards
Mike