Code To Add Date And Seven Day Week Number From Start Of Year

[Admin]

Hi

Put these subs in a standard module.

Const DateRange     As String = "D10:AP10"
    
Sub AddDates()
    
    Dim dt  As Date
    
    If IsDate(Range("d10").Value) Then
        dt = Range("d10").Value
        With Range(DateRange)
            .FormulaR1C1 = "=rc[-1]+1"
            .Cells(1) = dt
            .Offset(-1).FormulaR1C1 = "=IF(MOD(COLUMNS(RC4:RC)-1,7)+1=1,WEEKNUM(R[1]C),"""")"
            .Offset(-1).Resize(2) = .Offset(-1).Resize(2).Value
        End With
    End If
    
End Sub
Sub ClearDates()
    
    Range(DateRange).Offset(-1).Resize(2).ClearContents
    
End Sub