Lookup Matching Values & Return Replacement

Im trying to work out how to write some code to find and replace from a list.

I have key data in column P on sheet 1, and a list on sheet 2 with the same key data in column C.

Basicially, every month the data on sheet 1 changes (there are usually 100 rows of data each month) and what i want to do is, write some code to look down column P on sheet 1 and for every cell, find the corrosponding value on sheet 2 (column C). When it finds the value, copy and paste it onto sheet 3 then delete the row from sheet 2.

I hve written some code that can do the first part (copy and paste) and a second macro to do the deleting....but it is only for 1 value at a time...