Deleting all the data series in a dynamic chart

Try this,

Sub temp()
  ActiveSheet.ChartObjects("Chart 1").Activate
  For Each s In ActiveChart.SeriesCollection
      s.Delete
  Next s
End Sub

You can use Sheets("Plan1").ChartObjects(1).Chart.ChartArea.ClearContents