xlApp.Workbooks.Open(ruta)
    xlWorkBook = xlApp.ActiveWorkbook
    xlWorkSheet = xlWorkBook.ActiveSheet


    With xlWorkSheet

        xlWorkSheet.Range("B9:D9").MergeCells = True
        xlWorkSheet.Range("E9:G9").MergeCells = True
        xlWorkSheet.Range("H9:J9").MergeCells = True
        xlWorkSheet.Range("K9:M9").MergeCells = True
        xlWorkSheet.Range("N9:P9").MergeCells = True

        xlWorkSheet.Cells(9, 2).Value = "Dedo 1"
        'xlWorkSheet.Cells(9, 5).Value = "Dedo 2"
        'xlWorkSheet.Cells(9, 8).Value = "Dedo 3"
        'xlWorkSheet.Cells(9, 11).Value = "Dedo 4"
        'xlWorkSheet.Cells(9, 14).Value = "Dedo 5"

        xlWorkSheet.Cells(9, 2).Value = "Pos."
        xlWorkSheet.Cells(9, 3).Value = "Galga D"
        xlWorkSheet.Cells(9, 4).Value = "Galga T"
        'xlWorkSheet.Cells(9, 5).Value = "Pos."
        'xlWorkSheet.Cells(9, 6).Value = "Galga D"
        'xlWorkSheet.Cells(9, 7).Value = "Galga T"
        'xlWorkSheet.Cells(9, 8).Value = "Pos."
        'xlWorkSheet.Cells(9, 9).Value = "Galga D"
        'xlWorkSheet.Cells(9, 10).Value = "Galga T"
        'xlWorkSheet.Cells(9, 11).Value = "Pos."
        'xlWorkSheet.Cells(9, 12).Value = "Galga D"
        'xlWorkSheet.Cells(9, 13).Value = "Galga T"
        'xlWorkSheet.Cells(9, 14).Value = "Pos."
        'xlWorkSheet.Cells(9, 15).Value = "Galga D"
        'xlWorkSheet.Cells(9, 16).Value = "Galga T"

        xlWorkSheet.Columns("B:P").AutoFit()


        xlWorkSheet.Cells(a, 2).Value = TrackBar1.Value
        xlWorkSheet.Cells(a, 3).Value = TrackBar6.Value
        xlWorkSheet.Cells(a, 4).Value = TrackBar7.Value

        'xlWorkSheet.Cells(9, 5).Value = TrackBar5.Value
        'xlWorkSheet.Cells(9, 6).Value = TrackBar15.Value
        'xlWorkSheet.Cells(9, 7).Value = TrackBar14.Value

        'xlWorkSheet.Cells(9, 8).Value = TrackBar4.Value
        'xlWorkSheet.Cells(9, 9).Value = TrackBar8.Value
        'xlWorkSheet.Cells(9, 10).Value = TrackBar9.Value

        'xlWorkSheet.Cells(9, 11).Value = TrackBar3.Value
        'xlWorkSheet.Cells(9, 12).Value = TrackBar10.Value
        'xlWorkSheet.Cells(9, 13).Value = TrackBar11.Value

        'xlWorkSheet.Cells(9, 14).Value = TrackBar2.Value
        'xlWorkSheet.Cells(9, 15).Value = TrackBar12.Value
        'xlWorkSheet.Cells(9, 16).Value = TrackBar13.Value
    End With

    'xlApp.DisplayAlerts = False
    'xlWorkBook.Save()
    'xlApp.Workbooks.Close()

    'xlApp.Quit()
    a = a + 1

If (MessageBox.Show("Desea guardar los datos?", "Guardar", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes) Then
    xlWorkBook.Save()
    xlApp.Workbooks.Close()
    xlApp.Quit()
 End If