誰か教えてください。いくら調べても分からなかった・・・

近似曲線を引くマクロを書いて、ボタンに登録してるのですが、この動作を行うと
1回目の曲線が変な形で残ってしまう。
１回目の曲線を消したいのですが、どうしても消し方がわからない。

Private Sub CommandButton1_Click()

Dim num As Integer

num = MovingAvgUF.TextBox1.Value

ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.FullSeriesCollection(1).Trendlines.Add

ActiveChart.FullSeriesCollection(1).Trendlines(1).Select
With Selection
.Type = xlMovingAvg
.Period = num
End With

With Selection.Format.Line
.ForeColor.RGB = RGB(0, 0, 0)
.Weight = 1.5
End With

Unload MovingAvgUF

Range("A3").Select

End Sub