Select rows between Bold text to remove duplicates

I have data imported into Excel (all text) which I am trying to clean up. All that is needed is the first column and I have already written VBA to remove columns and rows which are not needed. This leaves the data in column A which is a list of company names in bold with the products they have purchased listed below it. Immediately below is the next company and it's list and so on. There are 1,000s of rows of data.

There are duplicates in each list of products under each company name. What I am trying to figure out is how to use VBA to select the non-bold items (between the bold company names), remove the duplicates, then move to the next non-bold list between company names. In essencese; continue looping through each company list to remove it's duplicates thoughout the column. Each company has it's own list, so selecting the entire column to remove duplicates would remove needed data.

Sorry, I don't have any code to post as I don't know where to start. The code I have already written has nothing to do with this task and will only confuse the matter. Included is a simple file which shows how the data is entered in the sheet now.

Hi,

Attached is your solution. Run this on some real time data and check. Hope this helps.

Xlbiznes,

Thank you for the quick response. This worked great!

It's interesting to see someone else's methods and how they achieve the task. Nice work.

Thanks again.

Glad i could help.

Please mark this thread as solved , if you are satisfied with the solution.

Thank you, watersev. That is quiet and clean.