Diagrammreihen zuviele angezeigt

Sub diagramm_daten_lesen(i)
ActiveSheet.ChartObjects("Diagramm 1").Activate
Diagrammdaten = "C" + CStr(i + 4) + ":H" + CStr(i + 4)
ActiveChart.SetSourceData Source:=Sheets("Daten").Range(Diagrammdaten), PlotBy:=xlRows
End Sub

Das Problem kommt dann, wenn ich für eine Meßreihe die Daten von gester und
heute anzeigen will.

Sub diagramm_alle_daten_lesen(i)
ActiveSheet.ChartObjects("Diagramm 1").Activate
Diagrammdaten_gestern = "C" + CStr(i + 1) + ":H" + CStr(i + 1)
Diagrammdaten = "C" + CStr(i + 4) + ":H" + CStr(i + 4)
ActiveChart.SetSourceData Source:=Sheets("Daten").Range(Diagrammdaten, Diagrammdaten_gestern),   _
_
PlotBy:=xlRows
End Sub

Hier werden nicht nur die daten der Zeile i+1 und Zeile i+4 angezeigt sondern
auch die Daten zwischen i+1 und i+4.
Gruß Ulf