In diesem Beispiel werden die Daten der Zellen C1:C5 in Sheet1 in die Zwischenablage kopiert und anschließend als neue Datenreihe in Chart1 eingefügt.
Worksheets("Sheet1").Range("C1:C5").Copy Charts("Chart1").SeriesCollection.Paste