Lookup, Copy and Paste using a loop

Hello,

I have this worksheet that is for table assignments. In column A is the number of a table that the person in column B will be sitting at. In Column E and Column H I have the table number and each table will sit 10 people. With that being said, I need help creating a macro for example to populate under table 1 in column E all the names that will be sitting in table 1 and so on. I am drawing a blank here. I guess I can use some loop to go through to find the table assignment but I'm not sure of how to structure the loop. To make it easier I guess I can have 3 separate blocks of code for each table. It will be the same code but have different ranges for the pasting portion. I attached the file below.

Thanks!

Thanks Mike. I can't get the code to work. I get a run time error saying ActiveX component can't create object.