Make row that automatically adds newest month + 2 nearest future months

I have a row with months in the format Jan-14 (01-01-2014), Feb-14 (01-01-2014) and so on, starting from column 3. I want the row to automatically update such that it contains the months from Jan-14 to the present month + two months. That is, since today's date is 25-08-2014, the row should contain the months Jan-14,...., Aug-14 (01-08-2014), Sept-14 (01-09-2014) and Oct-14 (01-10-2014). I have tried to do the following code but it is currently not working. Any suggestions how to make this work?

Sub Updatemonths()
Dim col As Long
Dim lc As Variant
lc = Worksheets("Summary").Cells(4, Worksheets("Summary").Columns.Count).End(xlToLeft).Column
    Dim StartD As Date, EndD As Date
    StartD = Worksheets("Summary").Cells(4, lc)
    EndD = Date
    For col = 1 To (EndD - StartD)
    If IsDate(Cells(4, lc + col)) Then
        Worksheets("Summary").Cells(4, lc + col).Value = DateSerial(Year(Cells(4, StartD + col)), Month(Cells(4, lc + col)), 1)
    End If
    Next col
End Sub

Best regards

Christian Ulrich

Maybe one of these can help:

Sub cudh()
Dim x As Long
x = ActiveSheet.UsedRange.Columns.count + 1
Cells(4, x) = Month(Date) & "/" & Right(Year(Date), 2)
Cells(4, x + 1) = Month(Date + 30) & "/" & Right(Year(Date), 2)
Cells(4, x + 2) = Month(Date + 60) & "/" & Right(Year(Date), 2)
Cells(4, "D").Copy
Range(Cells(4, x), Cells(4, x + 2)).PasteSpecial xlPasteFormats
End Sub

Or

Sub cudhzz()
Dim x As Long
Dim i As Long
Dim y As Long
x = ActiveSheet.UsedRange.Columns.count + 1
i = 1
For y = 4 To x + 2
Cells(5, y) = MonthName(i) & "/" & Right(Year(Date), 2)
i = i + 1
Next y
Cells(4, "D").Copy
Range(Cells(5, 4), Cells(5, x + 2)).PasteSpecial xlPasteFormats
End Sub

The first extends the range you already have.

The second starts from Jan-Oct. on row 5.

Simple AutoFill

Sub Updatemonths()
    Dim x As Long
    With Worksheets("Sheet1").Cells(4, 4).Resize(, 2)
        .Cells(2).Value = DateAdd("m", 1, .Cells(1).Value)
        x = DateDiff("m", .Cells(1).Value, DateAdd("m", 2, Date) - Day(Date) + 1)
        .AutoFill .Resize(, x + 1)
    End With
End Sub

Thanks. Works like a charm.