Shift Sequence

Good evening, from the attached file you see the initial part of the result that I would like to have inserted by hand some letters R in yellow.

In line 43 I put a formula but, it doesn't give me the desired result.
It brings me back 2 R then in the rows under 5-3-1 white cells
and then it starts again and I don't like it.

thanks

Hi
thanks for the reply Bo
I apologize, perhaps to be brief, in the request above, I had not said that the shift had to be updated to the choice of month a1 and year in cell A2

=INDEX(Foglio1!$D$7:$K$7,1+MOD(B$1-DATE($A$2,1,)+MOD((ROWS($1:1)-1),39),8))

ok correct
Thanks

Hi Bo

Also this is perfect
Thanks