Copy one cell to next cell in new sheet based on another cell

[kingdomb]

I need a Macro to copy/paste data from one cell into the next cell in new sheet based on a different cell in the origional sheet.
Sheet 1, Column A has a list of names. If Sheet1, B2 has value="5" then I want to copy sheet1,A2 and paste it into sheet2, Column A next available cell. Note there may be many rows where column B is =5 so I want to be able to run a macro that will do all of them at once. I hope to have a list of "A" values on sheet2 where "B" was equal to 5.
Sorry if this doesn't make sense.

 

[kingdomb]

That's it. It doesn't look easy but it looks so simple after all the convoluted attempts I made. Thanks again.