how do I use a variable to set a part of a range

[Boogerbut74]

So im trying to have i be put in as the end range number. the problem in my code right now is the line that is colored red

Dim number

    Set Table = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If Table Is Nothing Then Exit Sub


For i = 2 To (Table.Rows.Count + 1)

Average_chart1 = Aplication.WorksheetFunction.Average("J2:J" + i) 

 

[NdNoviceHlp]

ApPlication is not spelled right and I think U need to use a "&" instead of a "+" HTH. Dave