Macro to put a value into each date in a sheet

[tonywatsonhelp]

Hi Everyone,
I've built a sheet that has a cell for each day and a list of tasks
I want to fill my sheet with these tasks

So "AA16:ADP16" contains Dates one day after the other like a calendar list
Column P = Start Dates
Column Q = End Dates
Column O = Data to copy.

So what I want is a macro that will fill in the dates with Column O's data
So Row 17 to last row

Find startdate and end date and fill into row 17 of that column the amounts

Below is an example of what I mean

	O	P	Q		AA	AB	AC	AD	AE	AF	AG	AH	AI
	Data	Start Date	End Date	Date	01/11/19	02/11/19	03/11/19	04/11/19	05/11/19	06/11/19	07/11/19	08/11/19
	10	02/11/19	07/11/19			10	10	10	10	10	10
	20	05/11/19	05/11/19						20
	30	01/11/19	02/11/19		30	30
	40	04/11/19	07/11/19					40	40	40	40
					so the amounts above are the amounts I want the macro to fill in for me.

 

[Fluff]

Why not just use a formula?

Book1
	O	P	Q										AA	AB	AC	AD	AE	AF	AG	AH
1	Data	Start Date	End Date										01/11/2019	02/11/2019	03/11/2019	04/11/2019	05/11/2019	06/11/2019	07/11/2019	08/11/2019
2	10	02/11/2019	07/11/2019											10	10	10	10	10	10
3	20	05/11/2019	05/11/2019														20
4	30	01/11/2019	02/11/2019										30	30
5	40	04/11/2019	07/11/2019													40	40	40	40
Database

Cell Formulas
Range	Formula
AA2:AH5	AA2	=IF(AND(AA$1>=$P2,AA$1<=$Q2),$O2,"")

 

[tonywatsonhelp]

Hi fluff,
Because I'm going to end up with about 50 of these and the formulas make the document huge

 

[Fluff]

In that case how about

Sub tonywatson()
    With Range("AA2:ADP5")
        .Formula = "=IF(AND(AA$1>=$P2,AA$1<=$Q2),$O2,"""")"
        .Value = .Value
    End With
End Sub

 

[tonywatsonhelp]

This is perfect

 

[Fluff]

You're welcome & thanks for the feedback