Sub Macro1()
    Sheets("Graph").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SetSourceData Source:=Sheets("Data").Range("A1:C49"), PlotBy:= _
        xlColumns
End Sub