title: First chart created in a loop is different from subsequent charts
body: <p>I have a loop that produces the charts automatically from a set of data. My issue is that the first chart is always different from the subsequent charts.Can anyone help with why my first chart is always different than my subsequent charts? </p>
  
  <p>Here is what the charts look like after i run the code: </p>
  
  <p><a href="https://i.stack.imgur.com/6x03K.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/6x03K.png" alt="Charts"></a></p>
  
  <p>Here is my code:</p>
  
  <pre><code>Sub Pyramid()
  
   Sheets("Pyramid").Select
   Range("C2").Select
   ActiveCell.Range("B1:J1").Select
  
  
      For counter = 2 To 5
          ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
          ActiveChart.ApplyChartTemplate ( _
              "C:\Users\arboari\AppData\Roaming\Microsoft\Templates\Charts\1Pyramid.crtx")
          With ActiveChart
               Do While .SeriesCollection.Count &gt; 0
                  .SeriesCollection(1).Delete
               Loop
              .SeriesCollection.NewSeries.Values = Range("'Pyramid'!$W$2" &amp; ":$AN$2") 'BC males
              .SeriesCollection.NewSeries.Values = Range("'Pyramid'!$W$3" &amp; ":$AN$3") 'BC females
              .SeriesCollection.NewSeries.Values = Range("'Pyramid'!$C$" &amp; counter &amp; ":$K$" &amp; counter) 'Community males
              .SeriesCollection.NewSeries.Values = Range("'Pyramid'!$M$" &amp; counter &amp; ":$U$" &amp; counter) 'Community females
                  .FullSeriesCollection(1).Name = "='Pyramid'!$V$2" 'BC males
                  .FullSeriesCollection(2).Name = "='Pyramid'!$V$3" 'BC females
                  .FullSeriesCollection(3).Name = "='Pyramid'!$B$2" 'Community males
                  .FullSeriesCollection(4).Name = "='Pyramid'!$L$2" 'Community females
          End With
  
          ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts"
  
          With ActiveChart
              .HasTitle = False
              .Axes(xlCategory).MinimumScale = -15
              .Axes(xlCategory).MaximumScale = 15
              .FullSeriesCollection(3).Select
                  With Selection.Format.Fill
                      .Visible = msoTrue
                      .Patterned msoPatternLightVertical
                  End With
                  Selection.AxisGroup = 2
              .FullSeriesCollection(4).Select
                  With Selection.Format.Fill
                      .Visible = msoTrue
                      .Patterned msoPatternLightVertical
                  End With
                  Selection.AxisGroup = 2
              .Parent.Top = 50
              .Parent.Left = c * 130
          End With
          Sheets("Charts").Select
  
          c = c + 3
      Next counter
  Range("J1").Select
  End Sub
  </code></pre>
  
  <p>Thanks!</p>