Adding date and counting columns.

[haitran]

Hi everyone, I have a macro that saves selected columns from a Sheet to a new Workbook and save it as Text file. I have a few things that I want to add to the macro and not sure how should I name the Title of this thread, please forgive me if you misunderstood something.
I also have attached the macro so you can understand the situation better.

Here is a few things I want to add but not sure how to start. First is adding 2 mandatory columns name COI and Workpackage.These 2 columns have to be always in the chosen columns. They are not from the "Input Sheet". Column COI is just the date create the new Workbook, column Workpackage is a counting column for each row with format main. + number. For exp: main.1, main.2...

There is something I want to change for the output.There are some rows with yellow background and in bold, I will call these rows Milestone.
When there is a word "Parallel" appears in Test Name column, the next Procedures until the next Milestone will be sub sequences of the sequence right before the "Parallel" row.

This is an original output.(row 13 to 16)

gdg022.adj,Set Source SSM State From Heated To H2,180.0,
,Parallel with Set Source SSM State From Heated To ....,,
gft002.adj,Set C-Cool Temp Before Venting,30.0,
gdl002.***,Do LOTO main shutter drive laser,10.0,

Here is an example of what I want:

gdg022.adj,Set Source SSM State From Heated To H2,3:00,COI (12/21 13:03),main.7
Parallel with gdg022.adj, Parallel with Set Source SSM State From Heated To H2, COI (12/21 13:03), wp7.1
gft002.adj,Set C-Cool Temp Before Venting, 0:30,COI (12/21 13:03),wp7.2
gdl002.***,Do LOTO main shutter drive laser, 0:10,COI (12/21 13:03),wp7.3

End Parallel with gdg022.adj, COI (12/21 13:03),wp7.3

End Set Source SSM State From Heated To H2, COI (12/21 13:03),main.7

The Workpackage column of sub sequences is "wp" + the number of the main sequence + sub number like in the example above.
Adding 'Parallel with Procedure' Procedure is the procedure right before the Parallel row.
Adding 'End Parallel with Procedure' the same procedure with the procedure above.
Adding 'End Test Name' test name of the procedure.

Any help would be appreciated.
Thank you very much.