Macro to Copy value in a given destination cell

Please I need some help on this one. Thanks!

I have an spreadsheet with two colums, Column A and Column B:

Column A Column B
1000 G1
2000 H21
4000 F5
6000 W10

I want a macro that will copy the value in colum A (1000, 2000...) in the destination cells that are in column B (Cell G1, Cell H21, Cell F5, Cell W10...)

So as a result, the values in colum A will move to the cells stated in Column B

Thanks,
Urtzi

Try this:

Sub x()

Dim rng As Range

For Each rng In Range("A1", Range("A1").End(xlDown))
    Range(rng.Offset(, 1)) = rng
Next rng

End Sub