I want to create multiple diagrams outomatically. Does somebody know how to debug?

Sub MakroTest()

Dim MyWorksheet As Worksheet
Dim i As Integer
Dim DL As Long

Set MyWorksheet = ActiveSheet

DL = MyWorksheet.Cells(Rows.Count, 1).End(xlUp).Row


For i = 2 To DL 'end of the liste
'if only do it if i equals to this excel eqaution: =AND(ROW()>1;INDEX(A:A;ROW())=INDEX(A:A;ROW()-1))
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("A1:C1,A"&i"C"&i) 'i know that here is an error
    ActiveChart.ApplyChartTemplate ( _
        "C:\Users\[...]\Microsoft\Templates\Charts\InvestImpact Diagramm.crtx" _
        )
    
    
Next

End Sub