In the code below the source sheet is refered to as Sheet1 and the destination sheet as Sheet2.
Make sure both sheets are present in your workbook and named accordingly. Or adjust the sheet names in the code (Sheet1 is found on code line 4, Sheet2 is found on code line 9).
Here is the code:
Dim mCell As Range
For Each cell In Range("AA2:AA" & Range("AA" & Rows.Count).End(xlUp).Row)
Set mCell = Columns("A:A").Find(cell.Value)
Range(Range("A" & mCell.Row), Range("K" & mCell.Row)).Copy _
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)