title: Creating a combo chart in Excel with VBA code
body: <p>How do I adjust the code below to create a combo chart with a bar for the primary axis and line for the secondary axis? </p>
  
  <p>I have two columns of data. </p>
  
  <pre><code>Sub CreateChart()
      Dim rng As Range
      Dim cht As Object
  
      Set rng = ActiveSheet.Range("C1:D6")
      Set cht = ActiveSheet.Shapes.AddChart2
  
      cht.Chart.SetSourceData Source:=rng
  
      cht.Chart.ChartType = xlColumnClustered
  
      cht.Chart.HasTitle = True
      cht.Chart.ChartTitle.Text = "Average Price and Dollar Volume of Sales"
  
  End Sub
  </code></pre>
  
  <p>Any help would be appreciated! Thank you!</p>