Copy and paste matching data.

Hi

Im trying to get some data from one worksheet to another based on some data in column B.

There is an macro ive started and example data attached.

Basicly I would like the macro to simply check down column B, when it finds a match i.e. B1 and B2 copy the enitre row for both B1 and B2 to the report sheet, then carry on.

From the example data, all the data in bold and red should be copied accross.

It almost works, but I cant figure it out.

Thanks
David

Hi

Would it be easier to delete the non matching data from the source (DataIn) worksheet ?

Thanks
David