VBA - Copy Paste in last workday

[joslaz]

Hello everybody!


I'm currently facing a relatively simple problem.
I have the following table:
There are values in the Range B2:F2
Then there are a calender column since A5 - like below

A	B	C	D	E	F
	100	150	20	70	50
01.01.2019
02.01.2019
03.01.2019
04.01.2019
05.01.2019

<tbody>
</tbody>

Now I just want to copy the values from B2:F2 in the respective row (Bx:Fx) with the date of yesteray - but just for a workday.
When today is mondey it should copy the values in friday.


Does anyone how to manage that?

Best Regards

 

[footoo]

Dim d As Range: Set d = [A:A].Find(CDate([WORKDAY(TODAY(),-1)]))
If Not d Is Nothing Then [B2:F2].Copy d(1, 2)