filling every 23 rows

[Peterfc2]

A1 holds a date 16/08/2014

A2 to A22 should be blank etc
A23 should be 23/08/2014 (Date +7 days)
A24 to A46 blank
A47 should be 30/08/2014 (Date +14 days)

etc for 40 weeks

Should know how to do this and fill down but my minds gone blank (pun)

 

[mrmmickle1]

Maybe something like this:

[COLOR=#0000ff]Sub[/COLOR] TestDateFill()

 [COLOR=#0000ff]   Dim [/COLOR]b [COLOR=#0000ff]As Long[/COLOR]
[COLOR=#0000ff]    Dim[/COLOR] i [COLOR=#0000ff]As Long[/COLOR]
    
    b = 7
[COLOR=#0000ff]    For[/COLOR] i = 23 To 920 [COLOR=#0000ff]Step[/COLOR] 23
        Cells(i, 1).Value = Cells(1, 1).Value + b
        b = b + 7
  [COLOR=#0000ff]  Next [/COLOR]i
    
[COLOR=#0000ff]End Sub[/COLOR]

Assuming A1 = 16/08/2014