VBAで2つのデータ範囲を配列に格納し、折れ線のグラフを出し、タイトルと下部に系統名を入れよ

Sub CreateLineChart()
    ' データ範囲を配列に格納
    Dim xData() As Variant ' X軸のデータ
    Dim yData() As Variant ' Y軸のデータ
    Dim yData2() As Variant 'Y軸のデータ2

    ' X軸のデータを設定
    xData = Sheets("Sheet1").Range("A1:J1").Value ' 適切な範囲を指定してください

    ' Y軸のデータを設定
    yData = Sheets("Sheet1").Range("A2:J2").Value ' 適切な範囲を指定してください

    ' グラフ作成
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add ' 新しいシートを追加

    Dim chart As ChartObject
    Set chart = ws.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=300) ' チャートオブジェクトを作成

    With chart.chart
        .ChartType = xlLine ' 折れ線グラフを設定
        .SetSourceData Source:=ws.Range("A1:B10") ' データ範囲を指定してデータを設定
        
        ' X軸の設定
        .SeriesCollection(1).XValues = xData
        ' Y軸の設定
        .SeriesCollection(1).Values = yData
        .SeriesCollection(1).Name = "Series 1" ' 系列1の名前を設定
    
'        .SeriesCollection.NewSeries ' 新しい系列を追加
'        .SeriesCollection(2).Values = yData2
'        .SeriesCollection(2).Name = "Series 2" ' 系列2の名前を設定
    
        ' グラフのタイトルを設定
        .HasTitle = True
        .ChartTitle.Text = "折れ線グラフのタイトル"
        
        ' グラフの凡例を表示
        .HasLegend = True
        .Legend.Position = xlLegendPositionBottom ' 凡例を下部に表示
        
    End With
End Sub