Dynamic Data Range for Bar Chart

right click sheet tab and enter

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    
    ActiveSheet.ChartObjects(1).Chart.SetSourceData ActiveSheet.Range("A1").Resize(ActiveSheet.Range("A1").End(xlDown).Row, 2), PlotBy:=xlColumns
    
End Sub