Private Sub CommandButton1_Click()
  For i = 2 To 100
    ay = DatePart("m", DateAdd("m", 1, Cells(i - 1, 2)))
    yıl = DatePart("yyyy", DateAdd("m", 1, Cells(i- 1, 2)))
    For k = 28 To 31
      yeni = DateAdd("d", k, "1/" & ay & "/" & yıl)
      If ay <> DatePart("m", yeni) Then Exit For
    Next k
    Cells(i, 2) = DateAdd("d", k, Cells(i - 1, 2))
  Next i
End Sub

Burada A2 ile A100 arasına A1 deki tarih baz alınarak uygun tarihler yerleştirildi.

Ama baktım, bu işte bir gariplik var dedim. Bu kadar basit bir işlemi Excel fonksiyonları çözümlemeli diyerek formüllerimi kurcaladım biraz.

Eğer ToolPak-VBA Çözümleyicisi eklentisi aktif ise sizin formülleriniz içinde de EoMonth formülünü bulacaksınız.

=EoMonth(ReferansTarih,İstenilenAy)

Referans Tarih = Yeni tarihi bulmak için üzerine ilave etmek istediğiniz tarih değeri.

İstenilen Ay = Gün sayısını öğrenmek istediğiniz ayı belirtecek olan ve ReferansTarih ten sonraki ayı belirten Tamsayı değişken.

Bu Durumda

A2 hücresine = A1+EoMonth(A1;1)

A3 hücresine = A2+EoMonth(A2;1) ve bu şekilde devam edildiğinde istenilen çözüm bulunmuş oluyor.