構文エラー 複数のエリア選択

Question

前提・実現したいこと

本年もどうぞよろしくお願い致します。
初歩的な質問で恐れ入ります。
平均値を集計して、グラフを作成したいです。
グラフ作成の際、グラフデータエリアの指定でエラーがでます。
RangeとCellsの使い分けがいまひとつ理解でき質問させて頂きます。

'変更点：実現したいことを追記
「A列1行目からi行目まで」と「F列1行目からi行目」を選択してグラフを作成したいです。

発生している問題・エラーメッセージ

コンパイルエラー：構文セラー

該当のソースコード

Sub test160102() 'データ集計してグラフつくる
    Dim i As Long
    Worksheets(1).Select
    Application.CutCopyMode = False
    Cells(2, 6).Select
    
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:RC[-2])"
    Selection.Copy
    
    i = Cells(Rows.Count, 1).End(xlUp).Row 
    Range(Cells(2, 6), Cells(i, 6)).Select
    ActiveSheet.Paste
    'Range("I4").Select
    Application.CutCopyMode = False
    
    With ActiveSheet.Shapes.AddChart.Chart

    .ChartType = xlLine

　　'★ここの下でコンパイルエラーが発生します。
    .SetSourceData Worksheets(1).Range(cells(i:1),cells(i:6))
    .HasTitle = True 
    .ChartTitle.Text = "エリア毎売上高平均値"
    End With
End Sub

試したこと

.SetSourceData Worksheets(1).Range(Cells(1, 1), Cells(i, 1), Cells(1, 6), Cells(i, 6))

補足情報（FW/ツールのバージョンなど）

Answer 1

以下にてエラー解消されないでしょうか。

.SetSourceData Worksheets(1).Range(Cells(1, 6), Cells(i, 6))
'.SetSourceData Worksheets(1).Range(cells(i:1),cells(i:6))

＜追記＞
「A列1行目からi行目まで」と「F列1行目からi行目」を選択する方法です。

.SetSourceData Union(Worksheets(1).Range("A1:A" & i), Worksheets(1).Range("F1:F" & i))
'.SetSourceData Worksheets(1).Range(cells(i:1),cells(i:6))

Comments

[shu_shu]

コメントありがとうございます。うまく質問できておりませんでした。実現したいこを具体的に追記いたしました。

[shu_shu]

教えて頂いた内容で実現できました。ありがとうございます。おかげさまでUnionを初めて知りました。またRangeで変数を使用した範囲指定の方法を知りました。とても勉強になりました。ぜひ今後、これらを使いこなせるようにしていきたいと思います。