Visual Basic.NET - Problema en selección de rango

Private Sub Guarda_btn_Click(sender As Object, e As EventArgs) Handles Guarda_btn.Click

        valor = CStr(fechaIni_tb.Text) 'GUARDAMOS LA PRIMERA FECHA COMO STRING

        fin = CStr(fechaFin_tb.Text) 'GUARDAMOS LA ÚLTIMA FECHA COMO STRING

        Dim fecha1, fecha2 As Date

        fecha1 = Date.Parse(valor)

        fecha2 = Date.Parse(fin)

        Dim numHojas As Int16 = 0

        dias = DateDiff(DateInterval.Day, fecha1, fecha2)

        numero = valor.Substring(valor.IndexOf("/") + 1, valor.LastIndexOf("/") - 3) 'EXTRAEMOS EL NÚMERO DE MES

        mes = MonthName(numero, True) 'LE PONEMOS NOMBRE AL MES

        exApp = New Application

        exApp.Workbooks.Open(archivo) 'ABRIMOS EL LIBRO

        exApp.Visible = True

        numHojas = exApp.Worksheets.Count 'CONTAMOS LAS HOJAS DEL LIBRO

        exApp.Range("A2").Select()

        exApp.ActiveSheet.Select

        Dim PrimeraCell As String = ""

        Dim RangoSeleccionado As String = ""

        Dim NumCol As Integer = 0

        Dim NumRow As Integer = 0

        Dim TotalNumCol As Integer = 0

        Dim TotalNumRow As Integer = 0

        If exApp.Selection.Find(valor) Is Nothing Then

            MessageBox.Show("ERROR. NO HAY SELECCIONADO NADA.", "ERROR.", MessageBoxButtons.OK, MessageBoxIcon.Error)

            exApp.Workbooks.Close()

            exApp.Quit()

            exHoja = Nothing

            exLibro = Nothing

            exApp = Nothing

            Exit Sub

        Else

            exApp.Selection.Find(valor).Select()

            PrimeraCell = "$A$" & (exApp.ActiveCell.Row - 1) 'SELECCIONAMOS LA PRIMERA CELDA DEL MES

            NumCol = exApp.ActiveCell.Column

            'NumRow = exApp.ActiveCell.Row - 2 'FUNCIONA EN MESES DE 30

            NumRow = exApp.ActiveCell.Row 'NO FUNCIONA EN MESES DE 30

            TotalNumRow = exApp.ActiveSheet.UsedRange.Rows.Count - 2 'NO FUNCIONA EN MESES DE 31

            'TotalNumRow = exApp.ActiveSheet.UsedRange.Rows.Count 'FUNCIONA EN MESES DE 31

            TotalNumCol = exApp.ActiveSheet.UsedRange.Columns.Count

        End If

            With exApp

            exApp.Worksheets.Add(After:=exApp.Worksheets(numHojas))  ' EL AFTER ES PARA EVITAR CONFUNDIR LAS HOJAS

            exApp.Worksheets(1).Select()

            If fechaFin_tb.Text = fechaIni_tb.Text Then

                ' SELECCIONAMOS DESDE LA FECHA DESEADA HASTA EL FINAL

                RangoSeleccionado = PrimeraCell & ":" & Chr(64 + TotalNumCol - NumCol + 1) & TotalNumRow

            Else

                ' SELECCIONAMOS EL RANGO DESDE LA FECHA DESEADA

                RangoSeleccionado = PrimeraCell & ":" & Chr(64 + TotalNumCol - NumCol + 1) & (NumRow + dias)

            End If

            .ActiveSheet.Range(RangoSeleccionado).Select()

            .Selection.Copy  ' COPIAMOS EL CONTENIDO

            .ActiveWorkbook.Sheets(numHojas + 1).Select()

            .ActiveSheet.Name = mes ' LE CAMBIAMOS EL NOMBRE

            .ActiveSheet.Range("A1").Insert()

            'TAMAÑO DE PAPEL Y MÁRGENES

            .ActiveSheet.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4

            .ActiveSheet.PageSetup.LeftMargin = 53

            .ActiveSheet.PageSetup.RightMargin = 40

            .ActiveSheet.PageSetup.TopMargin = 35

            .ActiveSheet.PageSetup.BottomMargin = 40

            .ActiveSheet.Rows.Item(1).Font.Bold = 1 'NEGRITA

            .ActiveSheet.Rows.Item(1).Font.ColorIndex = 49 'COLOR DEL ENCABEZADO

            .ActiveSheet.Rows.Item(1).HorizontalAlignment = 3 'ALINEADO DEL ENCABEZADO

            .ActiveSheet.Range("A1").Value = "   FECHA   "

            .ActiveSheet.Range("B1").Value = " SISTÓLICA "

            .ActiveSheet.Range("C1").Value = " DIASTÓLICA "

            .ActiveSheet.Range("D1").Value = " PULSACIONES "

            .ActiveSheet.Range("E1").Value = " SATURACIÓN "

            .ActiveSheet.Range("A1:E1").Borders.LineStyle = 1

            .ActiveSheet.Rows.Item(1).AutoFit()

            .ActiveSheet.Range("A1:E1").Cells.Interior.Color = Color.Cyan

            .ActiveSheet.Range("A2:E32").HorizontalAlignment = 3

            .ActiveSheet.Rows.Font.Size = 12 ' TAMAÑO DE LA FUENTE

            .ActiveSheet.Rows.Font.Name = "Adobe Garamond Pro Bold" 'TIPO DE FUENTE

            .ActiveSheet.Columns.AutoFit() 'AJUSTE DE LAS COLUMNAS

            .ActiveSheet.Range("A2:A32").NumberFormat = "dd/mm/yyyy" 'FORMATO FECHA PARA LA COLUMNA FECHA

            .ActiveSheet.Range("A2:A32").Font.ColorIndex = 5 'COLOR DE LA FUENTE DE LA COLUMNA DE FECHAS

            .ActiveSheet.UsedRange.Select

            'EXTRAEMOS EL DÍA DE LA COLUMNA FECHA

            Dim numFilas As Int16 = .ActiveSheet.UsedRange.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row

            For con As Int16 = 2 To numFilas

                Dim con1 As Int16 = 2

                .ActiveSheet.Range("F1:F" & con).FormulaLocal = "=DIA" & "(A" & con1 & ")"

                con += 1

                con1 += 1

            Next

            .ActiveSheet.Columns("F").Hidden = False 'OCULTAMOS LA COLUMNA CON LA SELECCIÓN DE DÍAS

            'CREAMOS EL GRÁFICO

            Dim chartPage As Chart

            Dim exCharts As ChartObjects = .ActiveSheet.ChartObjects

            Dim myChart As ChartObject = exCharts.Add(462, 2, 416, 400)

            Dim ejeX, ejeY As Excel.Axes

            chartPage = myChart.Chart

            'DAMOS VALORES A LOS EJES DE LA GRÁFICA

            Dim coleccion As SeriesCollection = chartPage.SeriesCollection

            Dim serie1, serie2, serie3, serie4 As Excel.Series

            serie1 = coleccion.NewSeries()

            serie1.Name = .ActiveSheet.Range("B1").Value

            serie1.XValues = .ActiveSheet.Range("F1:F33")

            serie1.Values = .ActiveSheet.Range("B2:B32")

            serie2 = coleccion.NewSeries()

            serie2.Name = .ActiveSheet.Range("C1").Value

            serie2.XValues = .ActiveSheet.Range("F1:F33")

            serie2.Values = .ActiveSheet.Range("C2:C32")

            serie3 = coleccion.NewSeries()

            serie3.Name = .ActiveSheet.Range("D1").Value

            serie3.XValues = .ActiveSheet.Range("F1:F33")

            serie3.Values = .ActiveSheet.Range("D2:D32")

            serie4 = coleccion.NewSeries()

            serie4.Name = .ActiveSheet.Range("E1").Value

            serie4.XValues = .ActiveSheet.Range("F1:F33")

            serie4.Values = .ActiveSheet.Range("E2:E32")

            chartPage.ChartType = Excel.XlChartType.xlXYScatterLinesNoMarkers

            chartPage.ApplyDataLabels(Type:=XlDataLabelsType.xlDataLabelsShowNone, LegendKey:=False, HasLeaderLines:=True)

            'DAMOS FORMATO A LOS EJES DEL GRÁFICO

            With chartPage

                ejeX = .Axes(, XlAxisGroup.xlPrimary)

                ejeX.Item(XlAxisType.xlCategory).HasTitle = True

                ejeX.Item(XlAxisType.xlCategory).AxisTitle.Characters.Text() = "DÍAS"

                ejeX.Item(XlAxisType.xlCategory).HasMajorGridlines = True

                ejeX.Item(XlAxisType.xlCategory).HasMinorGridlines = True

                ejeX.Item(XlAxisType.xlCategory).MaximumScale = 31

                ejeX.Item(XlAxisType.xlCategory).MinimumScale = 1

                ejeX.Item(XlAxisType.xlCategory).TickLabels.Orientation = XlTickLabelOrientation.xlTickLabelOrientationAutomatic

                ejeY = .Axes(, XlAxisGroup.xlPrimary)

                ejeY.Item(XlAxisType.xlValue).HasTitle = True

                ejeY.Item(XlAxisType.xlValue).AxisTitle.Characters.Text() = "VALORES"

                ejeY.Item(XlAxisType.xlValue).HasMajorGridlines = True

                ejeY.Item(XlAxisType.xlValue).HasMinorGridlines = True

                ejeY.Item(XlAxisType.xlValue).MaximumScale = 100

                ejeY.Item(XlAxisType.xlValue).LogBase = 10

            End With

            chartPage.HasTitle = True

                chartPage.ChartTitle.Characters.Text = "TENSIÓN MENSUAL"

                chartPage.ChartTitle.Position = XlChartElementPosition.xlChartElementPositionAutomatic

                chartPage.HasLegend = True

                chartPage.Legend.Position = XlLegendPosition.xlLegendPositionRight

                .ActiveSheet.Range("E1").End(Excel.XlDirection.xlDown).Select() 'SELECCIONAMOS LA ÚLTIMA CELDA CON DATOS HOJA2

                .ActiveWorkbook.Sheets(1).Select() 'SELECCIONAMOS LA HOJA 1 DEL LIBRO MODIFICADO

                .ActiveSheet.Range("E1").End(Excel.XlDirection.xlDown).Select() 'SELECCIONAMOS LA ÚLTIMA CELDA CON DATOS HOJA1

                If System.IO.File.Exists(archivo) = True Then

                    'SI EL ARCHIVO EXISTE LO BORRAMOS Y GUARDAMOS EL NUEVO

                    File.Copy(archivo, archivo_ltl, True)

                    System.IO.File.Delete(archivo_ltl)

                Else

                    'SI NO EXISTE LO GUARDAMOS

                    exLibro.SaveAs(archivo)

                End If

                .ActiveWorkbook.Save() ' GRABAMOS LOS CAMBIOS EN EL LIBRO

                exApp.Workbooks.Close()

                exApp.Quit()

            End With

            exHoja = Nothing

        exLibro = Nothing

        exApp = Nothing

        Dim P As System.Diagnostics.Process   ' CERRAMOS TODOS LOS PROCESOS DE EXCEL ABIERTOS

        Try

            For Each P In System.Diagnostics.Process.GetProcesses

                If P.ProcessName.ToUpper Like "*EXCEL*" Then

                    P.Kill()

                End If

            Next

        Catch

        End Try

        GC.WaitForPendingFinalizers()

        GC.Collect()

        MessageBox.Show("FICHERO MODIFICADO Y GUARDADO", "PERFECTO.", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub