VBA code to extract data from multiple webpages to excel

Hello Everyone,

I'm new to the forum and also very new to Excel VBA. I'm trying to scrape some data from website:
http://www.thegreenbook.com/

I want to extract Data in excel as Column A Industry, Column B Sub industry Column C Name and Column D Phone Number from call now tab from all the industries on the webpage

on first page all industry tabs are there

if i click on one of the tab it takes me to su bindustry tabs
I want to import basic data list from all the sub industries and from all the pages
I want to extract Data in excel as "Column A" Industry, "Column B" Sub industry "Column C" Name and "Column D" Phone Number from all the industries on the all the pages
Example
Architect (industry)
Abrasive Cutting Wheels(Sub industry)
then it will have number of pages
i want data from basic listing from all the pages into excel in format i attached herewith
Looking forward to get quick solution as i need this urgently

Regards,
Satish Phalke