Excel VBAでグラフシートをブック内の末尾に追加する方法

直接 Charts.Add After:=Sheets(Sheets.Count) と指定すると何故か最後から2番目に追加される。
よって、一旦適当な位置に追加してから追加されたシートを末尾へ移動してやる。

Sub AddChartsAtTheEndOfSheets()
    Charts.Add ' 位置を指定せずに追加
    ActiveChart.Move After:=Sheets(Sheets.Count) ' 末尾へ移動
End Sub