Выберите динамический диапазон на основе даты и вставьте формулу в диапазон

Question

Я хотел бы вставить формулу в диапазон, основанный на дате.даты от столбца L7 до AP7 с 1 по 31.Формула должна выбрать динамический диапазон ниже даты и вставить формулу.

Я сделал макрос, и он выбирает только тот диапазон, который был выбран в макросе

s_date = Sheets("PnA").Range("L1") 
Range("L5").Select 
Selection.Copy 
Range("L7:AP7").Select 
Selection.Find(What:=s_date, After:=ActiveCell, LookIn:=xlFormulas _ , 
     LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False).Activate 
ActiveCell.Select 
Selection.Offset(1, 0).Select 
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
    SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False"
Selection.AutoFill Destination:=Range("L8:L673")
Range("L8:L673").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False" 

Answer 1

Это то, как далеко я могу получить от предоставленной вами ограниченной информации, на самом деле не ясно, чего вы пытаетесь достичь

Sub finddate ()
With Workbooks(REFERENCE).Sheets(REFERENCE) 'Change

s_date = .Range("L1") 
Set fdate = .Range("L7:AP7").Find(s_date, LookIn:=xlFormulas, LookAt:=xlPart)

If Not fdate is Nothing Then
    fdate.Offset(0,1).AutoFill Destination:=.Range(fdate.Offset(0,1) & ":" & fdate.Offset(1,673))'I am assuming there is a formula to the right of the date which you want autofilled down
End If

End With
End Sub