Macro for data base
 

Hi All

I want to create a macro that moves the data which is in the format of
Origen Sheet 1 to Destination Sheet 2. Basically, the data in colum B will
be headings of columms in the destination sheet. All the data with code OPN
will have to be placed in the columm below the heading OPN. The same
situation with code CLS.

Is it posible to do with a macro or there is other easier way to do it?

Origen Sheet1
A B C

1 100500 OPN 10/30/07 15:20
2 100503 OPN 10/31/07 18:30
3 100508 OPN 10/24/07 12:03
4 100500 CLS 10/30/07 15:40
5 100003 CLS 10/25/07 11:30
6 100508 CLS 10/13/07 19:50



Destination Sheet 2
A B C D
CODE OPN CODE CLS
1 100500 10/30/07 15:20 100500 10/30/07 15:40
2 100503 10/31/07 18:30 100003 10/25/07 11:30
3 100508 10/24/07 12:03 100508 10/13/07 19:50


Thanks in advance for your help.

Orquidea