Cannot Create Chart with Moving Average Trendline Straight from Data! PLEASE HELP!

Basically, I have some data to correspond to X-values and Y-values (only 8 rows of data), and just want to create a chart that does the following:

1) Graphs the moving average trendlines of the data with Period = 2
2) Does so in a way that the trendlines appear in the legend and are color coded (as would automatically occur if I were to just add series).

PLEASE HELP! I'd be so so so so appreciative.

Perhaps I can do something like:

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine

but have the "xlLine" somehow display trend lines.

Thanks in advance everyone and thanks for your time reading this.