A little help with this charting code please

[troy_lee]

This is my code. I can't set the series values. (Some code commented out for troubleshooting.) Thanks.

Sub UpdateChart()
Dim EndRow As Integer
Dim AddR As String
Dim chart As chart

Worksheets("Data").Activate
EndRow = Range("A" & Rows.Count).End(xlUp).Row

    Worksheets("Scorecard").ChartObjects("YTY").Activate
    ActiveChart.SeriesCollection(1).XValues = "=Data!$A$" & EndRow - 51 & ":$A$" & EndRow
    ActiveChart.SeriesCollection("Shipped").Values = "=Data!$C$" & EndRow - 51 & ":$C$" & EndRow
    ActiveChart.SeriesCollection("Received").Values = "=Data!$G$" & EndRow - 51 & ":$G$" & EndRow
    ActiveChart.SeriesCollection("On Hand").Values = "=Data!$I$" & EndRow - 51 & ":$I$" & EndRow

End Sub