In diesem Beispiel werden die Daten in Bereich B1:B5 von Sheet1 in Chart1 eingefügt.
Worksheets("Sheet1").Range("B1:B5").Copy Charts("Chart1").Paste