Copying certain cells from one column

Hello,


I want to copy certain cells depending on their value contents from a column into another column but follow their order. If some cells are not to be copied depending on the criteria used then their position should appear blank on the new column. For example the cells in original column say A1 to A5 are 1002, 2003, 2020, 1700, 1050. Now I want to copy only cells with numbers less than 2000. Then the new column, say B should appear as 1002,...,...,1700, 1050. i.e B1=1002, B3=1700, B5=1050. It means they should maintain the ir position in rows as was in the original column.

Can you help me with an excel Macro to do this?
Thanks
Emma