Move column value to correct week ending column

[horizonflame]

Hi All

In Column A I have a list of values with a date in Column B. In row 1 I have list of week ending dates (52 rolling dates in total but only a sample shown below.) I need to move the Column A values into into the correct week ending column. Any help appeciated!

Book1
	A	B	C	D	E	F	G	H	I	J
1			Ending	11/04/2021	04/04/2021	28/03/2021	21/03/2021	14/03/2021	07/03/2021	28/02/2021
2	10522	09/04/2021
3	4523	26/02/2021
4	5415	15/03/2021
5	10789	28/02/2021
6	14589	01/04/2021
7	1475	25/03/2021
8	17596	12/03/2021
9	8145	06/04/2021
10	11547	03/03/2021
11	6182	08/03/2021
Sheet1

 

[Fluff]

How about

+Fluff 1.xlsm
	A	B	C	D	E	F	G	H	I	J
1			Ending	11/04/2021	04/04/2021	28/03/2021	21/03/2021	14/03/2021	07/03/2021	28/02/2021
2	10522	09/04/2021		10522
3	4523	26/02/2021								4523
4	5415	15/03/2021					5415
5	10789	28/02/2021							10789	10789
6	14589	01/04/2021			14589
7	1475	25/03/2021				1475
8	17596	12/03/2021						17596
9	8145	06/04/2021		8145
10	11547	03/03/2021							11547
11	6182	08/03/2021						6182
Lists

Cell Formulas
Range	Formula
D2:J11	D2	=IF(AND($B2>=D$1-7,$B2<=D$1),$A2,"")

 

[horizonflame]

Thank you @Fluff. Would there possibly be a way to turn this into VBA code too please? Many thanks!

 

[Fluff]

If you want VBA you should say so in the thread.
Try

Sub horizonflame()
   Dim Ary As Variant
   Dim r As Long, c As Long
   
   Ary = Range("A1").CurrentRegion.Value2
   For r = 2 To UBound(Ary)
      For c = 4 To UBound(Ary, 2)
         If Ary(r, 2) >= Ary(1, c) - 6 And Ary(r, 2) <= Ary(1, c) Then
            Ary(r, c) = Ary(r, 1)
         End If
      Next c
   Next r
   Range("A1").Resize(UBound(Ary), UBound(Ary, 2)).Value = Ary
End Sub

 

[horizonflame]

Thanks @Fluff, sorry for the confusion!

 

[Fluff]

You're welcome & thanks for the feedback.