Sub teste()

Dim preco, cu, cu_inicial, quantidade, quantidade_inicial, receita, ct, lucro, variacao As Double
Dim linha As Integer
Dim variante

preco = 40
linha = 4
quantidade = 50
cu = 15
cu_inicial = cu
variacao = 150
quantidade_inicial = quantidade

While preco < 100

  While quantidade <= 150


    Cells(linha, 4).Value = preco
    Cells(linha, 5).Value = cu
    Cells(linha, 6).Value = quantidade

    linha = linha + 1

    quantidade = quantidade + 1
    if quantidade >= quantidade_inicial + variacao then
      quantidade = quantidade_inicial
    end if


  WEnd
  preco = preco + 1
  quantidade = quantidade_inicial
  cu = cu + 1
  Wend

End Sub