Linear_koefficients = Application.WorksheetFunction.LinEst(Value_column, Arg_column)

First_x = ((Evaluate("min(" & Arg_column.Address & ")")))
First_y = First_x * Linear_koefficients( 1 ) + Linear_koefficients( 2 )
Second_x = ((Evaluate("max(" & Arg_column.Address & ")")))
Second_y = Second_x * Linear_koefficients( 1 ) + Linear_koefficients( 2 )

Set ns = oChart.SeriesCollection.NewSeries
With ns
    .ChartType = xlXYScatterLines
    .XValues = First_x & ";" & Second_x
    .Values = First_y & ";" & Second_y
End With

.Values = Replace(CStr(First_y), ",", ".") & ";" & Replace(CStr(Second_y), ",", ".")