エクセル実務：計算シートからシミュレーションのグラフを作る

やりたいこと

変数を変えることでいろいろ計算して答えをだしてくれるシートがある。
そこから別シートに、その変数を変えると結果がどう推移するのかのグラフを書きたい。

↓みたいな、変数によって値が変わるシートから

※条件によって値が変わるから単純な式にはできない

↓みたいなグラフを作るために

（横軸は単価※心の目で見てください）

↓みたいな、変数の値ごとのグラフ用の表を作りたい

コード

Sub グラフへの移し替え()
Dim i As Integer
Dim tanka As Integer
Dim uriage As Integer
Dim dounyuritu As Double

i = 3
lastColum = Worksheets("シミュレーション").UsedRange.Columns.Count

Do While i <= lastColum + 1 '単価の最後の列まで繰りかえす

  'i列の単価をシミュレーションの変数のセルに入れる
  tanka = Worksheets("シミュレーション").Cells(2, i).Value
  Worksheets("市町村SIM").Cells(3, 27).Value = tanka

  '結果セルの値をi列のところに返す
  uriage = Worksheets("市町村SIM").Cells(15, 41).Value'省略可
  dounyuritu = Worksheets("市町村SIM").Cells(16, 41).Value'省略可
  uriageall = Worksheets("売上規模").Cells(5, 5).Value'省略可

  Worksheets("シミュレーション").Cells(3, i).Value = uriageall
  Worksheets("シミュレーション").Cells(4, i).Value = uriage
  Worksheets("シミュレーション").Cells(6, i).Value = dounyuritu

'次の単価へ
i = i + 1

Loop

End Sub