.FullSeriesCollection(i).XValues = sht.Range(Cells(firstRow + i, firstCol), Cells(firstRow + i, lastCol)) .FullSeriesCollection(i).XValues = sht.Range(Cells(firstRow, firstCol), Cells(firstRow, lastCol))