>>599
実行のたびにAddしているので、新しく追加されているからでしょう
たぶん移動平均の期間を可変にしたいのだろうから
ない場合だけAdd、すでにあれば既存のパラメーターを変更するようにする
あとActivateとかSelectionは無駄なのでやめる

Dim num As Integer
Dim graph
num = MovingAvgUF.TextBox1.Value
Set graph= Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1)

If graph.Trendlines.Count = 0 Then
　With graph.Trendlines.Add
　　.Type = xlMovingAvg
　　.Period = num
　　.Format.Line.ForeColor.RGB = RGB(100, 0, 0)
　　.Format.Line.Weight = 1.5
　End With
Else
　graph.Trendlines(1).Period = num
End If

Unload MovingAvgUF

これでどうでしょう
グラフ指定（Set句のところ）はそっちの環境に合わせて書き換えてね