Hi,

I'm new to all this macro creating and was wondering if someone could help me. I have a load of un organised addresses in rows (approx 6000):

House, Address 1, Address 2, Postcode, Tel, Fax, Email
House, Address 1, Address 2, Address 3, Postcode, Tel, Fax, Email
House, Address 1, Address 2, Address 3, Address 4, Postcode, Tel, Fax, Email
House, Address 1, Address 2, Postcode, Tel, Fax, Email

All the addresses are different lengths so I need a macro (or formula if more applicable) to extract the cell with the email address in and then write it to a cell further over to the right. Luckily the Email, Tel and Fax all state 'Email', 'Tel' or 'Fax' in the cell, so this might be able to be used to sort.

So what I'm looking to end up with is:

House, Address 1, Address 2, Postcode, Tel, Fax, Email
House, Address 1, Address 2, Address 3, Postcode, Tel, Fax, Email
House, Address 1, Address 2, Address 3, Address 4, Postcode, Tel, Fax, Email
House, Address 1, Address 2, Postcode, Tel, Fax, Email

Help is much appreciated, thank you in advance.

Jonathan