vbaで３行のうち、１行目と３行目を選択してグラフ化したい

Sub CreateChart()
    Dim rngData As Range
    Dim rng1 As Range, rng3 As Range
    Dim cht As ChartObject
    Dim ws As Worksheet
    
    ' データが含まれるシートを指定する
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' データの範囲を指定する
    Set rngData = ws.Range("A1:J3") ' データが含まれる範囲
    
    ' 1行目と3行目のデータを選択する
    Set rng1 = rngData.Rows(1)
    Set rng3 = rngData.Rows(3)
    
    ' グラフを作成する
    Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300) ' グラフの位置とサイズを指定する
    With cht.chart
        .ChartType = xlLine ' ライングラフを使用する場合
        .SetSourceData Source:=Union(rng1, rng3) ' 選択したデータをグラフのデータとして設定する
        ' グラフの設定や書式を行う場合は、ここに追加のコードを記述する
    End With
End Sub