Segue. Planilha tb em anexo.

Obs. Adicionei sempre 1 mês. Se quiser que sejam 30 dias exatos você pode trocar onde está Cells(i, 1) = DateAdd("m", i - 1, CDate(DataInicio)) por Cells(i, 1) = CDate(DataInicio) + 30 * (i - 1)

Sub Parcelar()

Dim DataInicio As String

DataInicio = InputBox("Informe a data de início")

If Not IsDate(DataInicio) Then MsgBox "Data Inválida": Exit Sub

For i = 1 To 72

Cells(i, 1) = DateAdd("m", i - 1, CDate(DataInicio))

Next

End Sub

Apenas dei uma melhorada no código, acrescentando um InputBox para solicitar o número de parcelas.