Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim co As ChartObject, t
If Target.Column = 2 And Target.Row >= 15 And (Target.Row - 15) Mod 13 = 0 Then
Cancel = True
For Each co In ChartObjects
If co.TopLeftCell.Address = Target(4).Address Then co.Delete: Exit For
Next
t = Target.Resize(4, 8)
[B2:I13].Copy Target
Target.Resize(4, 8) = t
For Each co In ChartObjects
If co.TopLeftCell.Address = Target(4).Address Then Exit For
Next
co.Chart.SeriesCollection(1).XValues = Target(1, 2).Resize(, 7)
co.Chart.SeriesCollection(1).Name = Target(2)
co.Chart.SeriesCollection(1).Values = Target(2, 2).Resize(, 7)
co.Chart.SeriesCollection(2).Name = Target(3)
co.Chart.SeriesCollection(2).Values = Target(3, 2).Resize(, 7)
End If
End Sub