Dim Aplicacion As Excel.Application
Dim Libro As Excel.Workbook
Dim Hoja As Excel.Worksheet
Aplicacion = New Excel.Application
Libro = Aplicacion.Workbooks.Open("C:\Test.xlsx")
Hoja = Libro.Worksheets(1)
Dim FinalRow As Integer
FinalRow = Hoja.Range("B30").End(Excel.XlDirection.xlUp).Row
For i = 2 To FinalRow
Next i