There is something wrong with the declaration statement - 
Set Cell = Sheets("Import").Range("IMPORT").Find("LNAME", "FNAME", "GENDER", "ENTITY") '/These are the column headers
I am not sure you can do it this way.
Can you attach a sample workbook with the details of what you need copied and to where? Maybe someone here can help you with an alternate code.