Excel y vb

Si tienes algún código podrías ponerlo pero sino te recomiendo que en ese caso realices un ciclo para verificar cual es la ultima fila con registros acá te dejo un archivo PDF que te puede servir mucho
http://catarina.udlap.mx/u_dl_a/tales/documentos/leip/camacho_c_i/capitulo12.pdf
Si necesitas alguna ayuda con código me avisas, pero no tengo chance de hacértelo en este momento..
Saludos..!
L.I. Juan Carmona
Punx Not dEad..!

Buscando por ahí y por allá logre hacerlo de esta forma... no se si sera la mejor forma pero me funciono de hecho me revisa si hasta el proveedor existe en el libro...
Este es el código del botón
Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
        Dim oExcelApp As Excel.Application
        Dim oExcelLibro As Excel.Workbook
        Dim oExcelHoja As Excel.Worksheet
        Dim files As Integer
        Try
            oExcelApp = New Excel.Application
            oExcelLibro = oExcelApp.Workbooks.Open("C:\Desarrollo\VB .NET\RRHH y Contabilidad\RRHH_y_Contabilidad\RRHH_Y_CONTABILIDAD.xlsx")
            oExcelHoja = oExcelApp.Worksheets("PROVEEDORES")
            oExcelApp.Visible = False
            If txtNomProveedor.Text = "" Or txtRutProveedor.Text = "" Then
                MsgBox("Debe ingresar todos los datos requeridos", vbEmpty, "Falta de Datos")
            Else
                For files = 3 To 200
                    If oExcelHoja.Range("C" & files).Value Is Nothing Then
                        oExcelHoja.Range("C" & files).Value2 = txtRutProveedor.Text & "-" & txtDVProveedor.Text
                        oExcelHoja.Range("D" & files).Value2 = txtNomProveedor.Text
                        MsgBox("El Proveedor ha sido agregado Satisfactoriamente", MsgBoxStyle.OkOnly, "Ingreso Correcto")
                        Exit For
                    Else
                        If oExcelHoja.Range("C" & files).Value = (txtRutProveedor.Text & "-" & txtDVProveedor.Text) Then
                            MsgBox("El Proveedor ya existe en la base de datos.", vbInformation, "Proveedor Existente")
exit for
                        End If
                    End If
                Next
                oExcelLibro.Save()
                oExcelLibro.Close()
                oExcelApp.Workbooks.Close()
                oExcelApp = Nothing
                oExcelHoja = Nothing
                oExcelLibro = Nothing
                If MsgBox("¿Desea Igresar otro Proveedor?", vbQuestion + vbYesNo, "Continuar") = vbYes Then
                    txtNomProveedor.Clear()
                    txtDVProveedor.Clear()
                    txtRutProveedor.Clear()
                Else
                    Me.Close()
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
Se agradece tu tiempo...
PUNK NOT DEAD...!
¿Qué grupos de punk escuchas?