Insert five cells right if cell value

[Chance_HEOR]

Hello everyone - this will be my first post here, so I apologize if it's basic. I am trying to model a medicine that is dosed in the following schedule:

It has a five-month effectiveness, so would like another referring table to show this (I did this manually):

I tried an array, which spilled since I had to write the formula into every grey cell. I tried to refer to the upper sheet and tried many variations around =IF(SUM(D14:D21)<5,1,0) or IFS(AND...) I'm a beginner at VBA but is this the only way to run this? The rest of the model works very smoothly and is dynamic except for this part. Any help would be much appreciated!

 

[VincentNL99]

Can you explain further what you want the macro to do? I have no clue tbh

 

[Chance_HEOR]

Hi, thanks for replying. What I'm trying to do is use Table #1 (which fills dynamically from another page) to fill out Table #2. Table #2 should have 5 cells to the right of every cell with a 1 in it.