Excel VBA macro loop - To go across a row and copy a line several times and append data

Hi

I need some help please! I have data on two worksheets ( in attached excel file both are on one sheet to save you moving back and forth)
One sheet has a table of students with their club and today's date (named Old table), the other has a "lookup" table (labelled lookup table).

What im trying to do, is have a macro that goes across each row of the old table, looking at the name column. It then finds this name on the lookup table
and moves across the row on the lookup table until it encounters a cell with the number 1. When it does, it copies the original row in the old table to a new
sheet, and also appends the data in the first 3 rows of each column where there is a "1" to the end of that new row.There will be a new row for every "1"
encountered in the lookup table. i hope that makes sense.

i have also attached a workbook with the output i would like and illustrated explanation. just unprotect sheet.

All help appreciated.

Thanks.