Bom dia pessoal!
Estou com um problema e não estou conseguindo solucionar.
Tenho uma planilha que faz alguns eventos em macro, a partir da seleção de um botão.
Em determinado momento, uma macro solicita ao usuário a seleção de dois intervalos (esses intervalos não são de colunas vizinhas) e a partir desta seleção, é gerado um gráfico.
O gráfico gerado é formado por duas linhas, sendo o x um número sequencia, a partir do "0" e o y o intervalo selecionado, assim como na segunda linha.
O que eu preciso é que a sequencia x seja os valores do intervalo 1 e os valores de y sejam os valores do intervalo y, criando assim 1 única linha.
Alguém teria alguma sugestão?

O código está assim

Set Rng = Application.InputBox(prompt:="Entrar Com Um Intervalo entre as colunas H e L:", Type:=8)
       
        If Rng Is Nothing Then
            MsgBox "Nenhum Intervalo Selecionado"
        Else
            Rng.Select
        End If
        Range(Rng.Select).Select
        'Criação do gráfico
        Charts.Add
        ActiveChart.ChartType = xlLineMarkers
        ActiveChart.SetSourceData Source:=Worksheets("Data").Range(Rng.Select), PlotBy:=xlColumns
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Data"
        Worksheets(Data).ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).Type = xlMovingAvg

Obrigado
Thiago