Need Help on set of column data move to different column & delete unwant col vba

dear experts

I have set of data Pasted in 4th row, in the top row 44 columns values assigned i want move data from set of data to different column among these 44 columns

Like "Service Order ID" is 1 column in set of data ,it move to second column of top row
Some of column need to delete. (Service Order Type, Service Order Description,Created By,Status,Contact,Expected Delivery Date,
Creation Date,Priority,Net Value,Currency,External Reference,Reference Date)

i want Get output result in same sheet (Actual)

find the attachment you may understand..

Good Morning Sir

Thanks sir for helping Me it works perfectly.. One more requirement on date format In R:R column result actual is "29.05.2014 19:00:59" Expect result is "29-May-14"

Find the Attachment & Need changes on this code...

thanks in advance