This is something my I guy came up with

Sub Update_Chart(

Dim stRange As String, endrow As Intege

endrow = Range("a1").End(xlDown).ro

stRange = "a1:b" & endro

ActiveSheet.ChartObjects("Chart 1").Activat
ActiveChart.SetSourceData Source:=Range(stRange), PlotBy
:=xlColumn

Range("a1").Selec
End Su