Rodolpho dos Santos

Bom dia Eu pesquisei nos topicos e não encontrei a solução para o que estou precisando no meu serviço Eu preciso por exemplo pegar um valor e dividir por uma quantidade de parcelas e caso tenha diferença a primeira tem que ficar com a diferença e as demais com parcelas iguais Exemplo: Vou digitar um cartão de 1.000,00 que foi parcelado em 7 vezes terei que ficar assim: 142,90 142,85 142,85 142,85 142,85 142,85 142,85 Porém esta ficando assim: 142,84 142,86 142,86 142,86 142,86 142,86 142,86 Segue o codigo parcelado = numValor / cxcParcelas variavel = 0 For i = 1 To cxcParcelas Sheets("Cartao").Select Range("A2000").End(xlUp).Select With ActiveCell .Offset(1, 0).Value = txtCContabil .Offset(1, 1).Value = txtCC .Offset(1, 2).Value = 10 .Offset(1, 3).Value = txtDepto .Offset(1, 4).Value = "0A" If variavel = 0 Then Total = Format(numValor, "#,##0.00") menosparcela = cxcParcelas - 1 parceladof = Format(parcelado, "#,##0.00") subtotal = menosparcela * (parceladof) subtotal = Format(subtotal, "#,##0.00") soma = Total - subtotal .Offset(1, 5).Value = soma variavel = 1 Else .Offset(1, 5).Value = CDec(parcelado) parcelado = Format(parcelado, "#,##0.00") Se alguém puder me ajudar Grato