Sub Y()
Xmin = -100 'нижний предел
Xmax = 100 'верхний предел
N = 1000 ' число точек

Delta = Abs(Xmax - Xmin) / N ' шаг
i = 0
For X = Xmin To Xmax Step Delta
Sum = 10 * X + 100
i = i + 1
Cells(i, 1) = X
Cells(i, 2) = Sum
Next X

End Sub