Sub teste()
Dim Preco, MaxPreco, cu, Quantidade, Variacao As Double
Dim linha As Integer

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

Preco = 40
Linha = 4
Quantidade = 50
cu = 15
Variacao = 3
MaxPreco = 100

For PrecoIndex as Double = Preco To MaxPreco
  For CuIndex As Double = cu To PrecoIndex
    For QuantidadeIndex As Double = 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

End Sub