Excelじゃ無くてMSChartで実現したいって言ってるから、

Dim x As Single, y As Single

With MSChart1
　　.chartType = VtChChartType2dLine
　　.ColumnCount = 1
　　.RowCount = 50
　　For x = 1 To 50
　　　　y = x ^ 2 + x
　　　　.Row = x
　　　　.Data = y
　　Next
End With