Cleaning up data from web in a cell

[Sharid]

Please could someone help. I have been doing this by hand, I'm hoping a vba code can do this

I am pulling data from the web into a spreedsheet, I need a VBA code that will clean the data so it is formated better, see below

I have several columns about 20 and to the last row with data in it. Row 1 has the headings so data goes into row 2 down


From This

A	B	C	D	E
Joe Blogs	Address Line 1 Address Line 2 Address Line 3 Address Line 4 Address Line 5	Tel 0111 111 2222	London	UK

<tbody>
</tbody>

To This

A	B	C	D	E
Joe Blogs	Address Line 1 Address Line 2 Address Line 3 Address Line 4 Address Line 5	Tel 011111 222	London	UK

<tbody>
</tbody>

Thanks