Adding New Chart Series with Loop

[snb]

with the use of offset you can use any loop:

Sub AddNewSeries() 
     for j=0 to 5
    With ActiveChart.SeriesCollection.NewSeries 
        .Name = ActiveSheet.Range("B5").offset(j) 
        .Values = ActiveSheet.Range("D5").offset(j) 
        .XValues = ActiveSheet.Range("C5").offset(j) 
    End With 
    next
     
End Sub

I hope you know that ActiveSheet.Range("D5:D5") isn't a conventional way of writing VBA code.