Sub teste()

Dim Preco, MaxPreco, MaxCu, cu, Quantidade, Variacao As Double
Dim linha As Integer

Dim PrecoIndex, CuIndex, QuantidadeIndex as Double

'Console.WriteLine("linha | preco |   cu |   quantidade")

Linha = 4

Preco = 40
MaxPreco = 100

cu = 15

Quantidade = 50
Variacao = 150

MaxCu = MaxPreco

For PrecoIndex = Preco To MaxPreco
  For CuIndex = cu To MaxCu
    For QuantidadeIndex = Quantidade To Quantidade + Variacao
        'Console.WriteLine("{0:D}        {1:N}     {2:N}      {3:N}", Linha, PrecoIndex, CuIndex, QuantidadeIndex)

       Cells(linha, 4).Value = PrecoIndex
       Cells(linha, 5).Value = CuIndex
       Cells(linha, 6).Value = QuantidadeIndex

      Linha = Linha + 1
    Next
  Next
Next

'Console.WriteLine("{0:D}        {1:N}     {2:N}      {3:N}", Linha, 0, 0, 0)


End Sub