what's missing so I can run it successfully.

Sub Macro5()

CHARTS.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("DATA").Range
("A1:BJ145"), PlotBy _
:=xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=DATA!
R6C2:R6C256"
ActiveChart.Location Whe=xlLocationAsNewSheet
ActiveChart.HasLegend = False
End Sub