Copying a series of dates to specific cells

[selitac]

This is probably quite simple, but I would appreciate some help...

I am trying to produce a series of weekdates in the following format:
31-Jan
31-Jan
31-Jan
31-Jan
01-Feb
01-Feb
01-Feb
01-Feb
02-Feb
02-Feb
02-Feb
02-Feb

So I need weekdates only, and I need each date in 4 consecutive cells. Is there a quick way of doing this without having to copy and paste each date? I have tried using the blanks function, but in doing this, I still had to manually add each new date to each cell as required.

I would most appreciate some ideas.
Thanks

 

[BrianB]

If it was just 1 day asimple formula would do, but you need a macro :-

Sub test()
    Dim ws As Worksheet
    Dim MyRow As Long
    Dim ThisDate As Date
    '----------------------------------------------
    Set ws = ActiveSheet
    '- 2 extra copies of first cell
    ws.Range("A2:A3").Value = ws.Range("A1").Value
    MyRow = 4
    '- loop 25 times (change for any other number)
    For d = 1 To 25
        ThisDate = ws.Cells(MyRow - 1, 1).Value + 1
        '- If Saturday add 2 days
        If WeekDay(ThisDate, vbMonday) = 6 Then
            ThisDate = ThisDate + 2
        End If
        '- repeat 3 times
        For n = 1 To 3
            ws.Cells(MyRow, 1).Value = ThisDate
            MyRow = MyRow + 1
        Next n
     Next
End Sub
'-- eop --------------------------------------------

 

[selitac]

Thank you very much BrianB, this works great and is very useful for what I am trying to do. Thanks again!
Selitac