Moving a cell to a specific location based on date

Hello Everyone,
First time post here so thanks in advance for everyone's contributions.

I have a process that I thought would be simple, but I am struggling with it.

I have a cell (B3) that contains the formula =WEEKNUM(B2) - displays the week number it currently is.

I am trying to create a macro that will look at a number that is keyed into a cell (H6)
When the macro is executed it:
It grabs the number located in (H6)
It looks at cell (B3) The week number it is
Then it looks at a row of 52 Cells that contain 1 through 52 - for each week of the year. (P4) through (BO4)
The macro will place the value it grabbed (H6) in the same column that matches the value in (b3) the number of week it currently is.

I hope this was descriptive enough.

While I have worked with Excel for decades, VB is new to me.
Thanks a million, to anyone that can point me in the right direction.
JDH

Kaper,
Thanks a million for posting this!
It is very close to what I am trying to achieve.
Your Spreadsheet worked great.

Just one missing piece, the macro should zero out the input cell and leave the value it moved in place.
For example.
Enter amount in (H6)
Amount is moved to corresponding week.
The amount in (H6) is reset to zero and the amount in the corresponding week stays the same as what was originally entered in (H6)

I can't thank you enough for getting me this far.
Thanks again,
-Jeff Hall