title: Move Chart series data via VBA
body: <p>I have the following code</p>
  
  <pre><code>Dim ss As Series
  Dim strs() As String
  Set ss = ActiveChart.SeriesCollection(1)
  strs = Split(ss.Formula, ",")
  Dim rg As Range
  Set rg = Range(strs(2))
  Set rg = rg.Resize(rg.Rows.Count + 1)
  ActiveChart.SeriesCollection(1).Values = rg
  </code></pre>
  
  <p>This allows me to add 1 more item of data to my data series but I want it to also remove the 1st entry every time I run it. For example Day 1- range is A1 to C1 then I run the macro I want it to go to B1 to D1</p>
  
  <p>I hope this makes sense</p>