Create a csv file using VBA or Macro

Can anyone please help to create a csv file

I got an excel sheet with values like below:
The column names below will be different, for understanding i had put column name ans type as same.

Model P S I adj (column name will be different)
A 10 10 5 6
B 15 5 18 4
C 30 20 15 8

I need to create a csv file in the below format, the first column need to hard code with value 1, others values from the excel, it can some more values with hard coding.

Cd Model Type Qty
1 A P 10
1 A S 10
1 A I 5
1 A ADJ 6
1 B P 15
1 B S 5
1 B I 18
1 B ADJ 4
1 C P 30
1 C S 20
1 C I 15
1 C ADJ 8

Can anyone please help...very urgent.

Thanks in advance.

Attach a source workbook and a desired .csv file from this source workbook …

Code to paste in Data worksheet module :

Please Login or Register  to view this content.

Do you like ? So thanks to click on bottom left star icon « Add Reputation » !