Move rows if cell have value from a list

[origal]

Good morning all,
I'm trying my luck again :-)

I have a document with 3 sheets:
Sheet 1 - Full Database
Sheet 2 - List of Specific values that I want to move from the database into (Sheet 3)
Sheet 3 - The relevant values from Sheet 1 (database) that matched the index in Sheet 2.

I'm looking for a macro that will move rows from Sheet 1 to Sheet 3 based on the list of values in Sheet 2.

For example:

Sheet 1:
A--------------B
Dave----------1
Darren--------2
Tom-----------2
Sarah---------3
Michael-------4
Robin---------5
Daniel--------5
Ron-----------6

And Sheet 2:
A
1
3
5

Sheet 3:
Dave----------1
Sarah---------3
Robin---------5
Daniel--------5

In sheet 3 I want to have only the rows from sheet 1 that are in the list in sheet 2.
Please find the document attached.

Thanks!

Ori

ExampleD.xlsm