Searching web and retrieving phone numbers

[Raven31]

Good Afternoon,
I have spent the better part of today searching the site for the answer to my need. We are Data Scrubbing for a software conversion and using Excel 2010 to do so. I have a spreadsheet of over 90k company names, addresses, FEINs, and telephone numbers.

There are over 8000 phone numbers and web addresses missing that need to be added to the sheet and I am hoping to be able to do so without searching the web individually for each phone number. I thought there may be a macro or lookup or something that will tell Excel to search the web (perhaps a specific site like The Blue Book, The Yellow pages, or a search on the company name)and retrieve these phone numbers and put them in the specific cell they need to be in.

The company names are all in the same column as well as the items that I need to fill in if they are missing such as the area code, phone number, and web address.

Any help you can provide would be so helpful!!

Example:
[TABLE="width: 700"]
<tbody>[TR]
[TD="align: center"]Vendor #[/TD]
[TD="align: center"]Customer Name [/TD]
[TD="align: center"]Addr 1[/TD]
[TD="align: center"]City[/TD]
[TD="align: center"]State[/TD]
[TD="align: center"]Zip[/TD]
[TD="align: center"]Area Code[/TD]
[TD="align: center"] Phone[/TD]
[TD="align: center"] Website[/TD]
[TD="align: center"] FEIN [/TD]
[/TR]
[TR]
[TD]A1001[/TD]
[TD]ABC Construction Co, Inc.[/TD]
[TD]1234 Main St [/TD]
[TD]Baltimore[/TD]
[TD]MD[/TD]
[TD]21222[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]52-4017854[/TD]
[/TR]
[TR]
[TD]A1002[/TD]
[TD]Apple Contruction Co[/TD]
[TD]4589 Maple Ave[/TD]
[TD]****eysville[/TD]
[TD]MD[/TD]
[TD]21093[/TD]
[TD]410[/TD]
[TD]5556666[/TD]
[TD]www.gensis.com[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]A1003[/TD]
[TD]Arc Water Supply[/TD]
[TD]1515 Cold Point Lane[/TD]
[TD]Brewer Hill[/TD]
[TD]CT[/TD]
[TD]41096[/TD]
[TD][/TD]
[TD][/TD]
[TD]www.arc.com[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]B1001[/TD]
[TD]Baltimore Sign Co[/TD]
[TD]15 EAst Lane[/TD]
[TD]Sinful[/TD]
[TD]NJ[/TD]
[TD]06190[/TD]
[TD]609[/TD]
[TD]7775621[/TD]
[TD][/TD]
[TD]21-4258978[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]