Guru do Excel e Power BI

Option Explicit

Sub InserirParcelado()
    Dim sDescrição As String
    Dim dValor As Double
    Dim lParcelas As Long
    Dim lLast As Long
    Dim lRow As Long
    Dim dtInício As Date
    Dim lastrow As Long
    
    'Range("A2:E50000").ClearContents 'Para limpar descomente essa linha

    sDescrição = InputBox("Digite a descrição do insumo:")
    dValor = InputBox("Digite o valor")
    lParcelas = InputBox("Digite o número de parcelas:")
    dtInício = InputBox("Digite a data de início:")
    
    If sDescrição = "" Or dValor = 0 Then Exit Sub
    
    lLast = Cells(Rows.Count, "A").End(xlUp).Row
    
    For lRow = lLast + 1 To lLast + lParcelas
        Cells(lRow, "A") = DateSerial(Year(dtInício), Month(dtInício) + lRow - lLast - 1, 1)
        Cells(lRow, "B") = sDescrição
        Cells(lRow, "C") = lRow - lLast & " de " & lParcelas
        Cells(lRow, "D").FormulaR1C1 = Cells(lRow, "D").Offset(-1).FormulaR1C1
        Cells(lRow, "E") = dValor / lParcelas
    Next lRow
    ' Adapção para incluir a formula
        Range("D2").Formula = "=IF(C2="""",B2,B2& "" - Parcela "" & C2)"
        Range("D2").AutoFill Destination:=Range("D2:D" & lLast)
        Range("D2:D" & lLast).Value = Range("D2:D" & lLast).Value
    ThisWorkbook.RefreshAll

End Sub