Extract Data from Sheet1 and insert into Sheet2 in relevant column and next available row

Hi Guys, can anyone help me with this.

In the attached workbook i've copy and pasted the body text for a quote request i received via my website customer enquiry form into sheet1.

I'd then like to extract the data from it into the relevant columns in sheet2 on the next available row.

The text that's highlighted in red are the column headers in sheet2 and the text directly below in green is the data i wish to extract in the relevant columns in sheet2

Possibly more complicated is the email address highlighted in green in row1 to the next available row in sheet2 Email column and the Date in column B, sheet1 into Date column in sheet2.

The rows and columns will always be the same but some data fields may be empty with different enquiries.

This is a kinda workaround for my previous problem request

Appreciate any time and effort if someone can help with this

Regards
John

Hi Sintek, Thanks for your time and expertise with this, it works great.

1 thing though is it brings in the word 'Donegal' before the email address and '*via*inbound-smtp.cp.blacknight.com*' after the email address with new entries i add, i can add a macro to find and replace so it's no biggy.

Many Thanks

Perfect, thanks again sintek