Ola Oswaldo
Seguem as Prints da Planilha com os comentários e exemplos.
http://imageshack.com/a/img538/8084/Xptn1N.jpg
http://imageshack.com/a/img661/7541/NX5uHc.jpg
A macro utilizada é essa :
Sub CartãodeCrédito()
Dim i, LR As Long
i = 1
Do Until i > Plan2.[D11]
With Sheets("Cartão de crédito")
LR = .Cells(Rows.Count, 1).End(xlUp).Row
If Plan2.[b11] <= Plan2.[A11] Then
.Cells(LR + 1, 1) = Plan2.[C11] & " " & i & "/" & Plan2.[D11]
.Cells(LR + 1, 2) = Plan2.[E11] / Plan2.[D11]
.Cells(LR + 1, 3) = Plan2.[E11]
.Cells(LR + 1, 4) = WorksheetFunction.Proper(Format _
(DateAdd("m", i, Plan2.[b11]), "mmmm"))
.Cells(LR + 1, 5) = Format(DateAdd("m", i, Plan2.[b11]), "yyyy")
Else
.Cells(LR + 1, 1) = Plan2.[C11] & " " & i & "/" & Plan2.[D11]
.Cells(LR + 1, 2) = Plan2.[E11] / Plan2.[D11]
.Cells(LR + 1, 3) = Plan2.[E11]
.Cells(LR + 1, 4) = WorksheetFunction.Proper(Format _
(DateAdd("m", i + 1, Plan2.[b11]), "mmmm"))
.Cells(LR + 1, 5) = Format(DateAdd("m", i + 1, Plan2.[b11]), "yyyy")
End If
i = i + 1
End With
Loop
End Sub