A modificação do modo de calculo deve ser efetuada no codigo que carrega o Fluxo.
Se deseja que o calculo leve emconsideração o desconto da taxa somento sobre o vlr total, altere como abaixo

Sub cria_fluxo()

Dim Area As Range
Dim destino As Range
Call Limpa_fluxo
Set Area = Worksheets("Operações").Range("a2:f2000")
Set destino = Worksheets("Fluxo").Range("a2:f6000")
j = 1
i = 1
While Area.Cells(i, 1).Value <> ""
For k = 1 To 6
    destino.Cells(j, k).Value = Area.Cells(i, k).Value
Next k
    num_parcelas = Area.Cells(i, 7).Value
    data_opera = Area.Cells(i, 3).Value
    wtaxa = Area.Cells(i, 5).Value
    wvalor = Area.Cells(i, 4).Value / num_parcelas
    destino.Cells(j, 8).Value = wvalor
    destino.Cells(j, 9).Value = data_opera + Area.Cells(i, 6).Value
    destino.Cells(j, 10).Value = Area.Cells(i, 4).Value * (1 - wtaxa) / num_parcelas 'wvalor * (1 - wtaxa)
    destino.Cells(j, 7).Value = 1
For k = 2 To num_parcelas
    j = j + 1
        For z = 1 To 6
            destino.Cells(j, z).Value = Area.Cells(i, z).Value
        Next z
    destino.Cells(j, 6).Value = k * 30
    destino.Cells(j, 7).Value = k
    destino.Cells(j, 8).Value = wvalor
    destino.Cells(j, 9).Value = data_opera + 30 * k
    destino.Cells(j, 10).Value = Area.Cells(i, 4).Value * (1 - wtaxa) / num_parcelas 'wvalor * (1 - wtaxa * k)
Next k
    j = j + 1
    i = i + 1
Wend

Call Marca_fluxo
Call Atualiza_resumo

End Sub

Reinaldo, ficou perfeito. Muito obrigado, vocês são feras.