Vb.net add a second line to a chart

Here is my excel spreadsheet ----
sheet 1
time	value1
0	6
1	6
2	7
3	6
4	5
5	6
6	7
7	6
8	5
9	4
10	3
sheet 2------------------------------
time	value2
0	5
1	5
2	6
3	5
4	4
5	5
6	6
7	5
8	4
9	3
10	2

Here is the code that generates one graph line from sheet 1

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xlApp As New Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet

        xlApp.Visible = True
        xlWorkBook = xlApp.Workbooks.Open("L:\x_GGNS_addons\WorkingJunk\book1.xlsx")
        xlWorkSheet = CType(xlWorkBook.Sheets("sheet1"), Excel.Worksheet)

        Dim xlcharts = xlWorkSheet.ChartObjects
        Dim myChart As Excel.ChartObject = xlcharts.Add(180, 80, 300, 250)
        Dim chartPage As Excel.Chart = myChart.Chart
        chartPage.Activate()


        With chartPage
            Dim range1 As Excel.Range
            Dim range2 As Excel.Range
            Dim chartRange As Excel.Range
            'range1 = xlWorkSheet.Range("$A$1", "$A$10")
            range1 = xlWorkSheet.Range("sheet1!$A$1:$A$10")
            'range2 = xlWorkSheet.Range("$B$1", "$B$10")
            range2 = xlWorkSheet.Range("sheet1!$B$1:$B$10")
            chartRange = xlApp.Union(range1, range2)
            .SetSourceData(chartRange, Excel.XlRowCol.xlColumns)
            .ApplyCustomType(Excel.XlChartType.xlXYScatterLines)
            .Location(Excel.XlChartLocation.xlLocationAsNewSheet, "chart1")
          
        End With
    End Sub
End Class

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).XValues = "=Sheet2!$A$2:$A$12"
    ActiveChart.FullSeriesCollection(2).Values = "=Sheet2!$B$2:$B$12"
    ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$A$2:$A$12"
    ActiveChart.FullSeriesCollection(2).Name = "=Sheet2!$B$1"
End Sub