Insert Row where value not found

Hi guys.

In my worksheet i have 2 sheets, 1 is the report sheet titled "17-01-2012" and the other is "Data"

The report sheet has data in a timetable style format. each of the coloured ranges are named ranges that at x number of rows in height but always 8 columns wide.
I need a code that looks at the list on the "Data" sheet starting at cell H3, look at its value and match it to the value found on the report sheet in column A. then continue down the list onto the next value and look for it below the first one found on sheet A. If a value is not found then insert a row and rename to the value not found.

please see the attached worksheet
Regards Jordan