Searching for and moving data within a range of cells

Sorry, it was a bit rushed. I'll try again.

Sheet1 contains a sample of the unedited data, Sheet 2 shows my intended end result. I have tried recording Macros in an attempt to sort the data step by step (very clumsily I expect)and I've found some of the data does not go where I need it to be (ie nicely lined up in rows)and as a result some of it gets lost towards the final stages.

I would really appreciate some help with getting it accurate.

thanks

Tom