Compare cell by cell in sheets

hi all..i had a query regarding comparing cells which contains text in col A in worksheet 1 and cells with text in col A in worksheet2...i want a vba code to run for,compare each cell by cell in worksheet 1 with the cells in worksheet2 and copy,paste the matched cells in a new sheet named "copied" data....

P.S. worksheet1 contains repetitive text in colA

attached a sample worksheet.