Bom dia!!

Use a pesquisa do fórum!!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

O código abaixo é apenas uma ideia para que você possa adaptar!

Private Sub CommandButton3_Click()

    Dim cl     As Range
    Dim rIds   As Range
    Dim Rw     As Long
    With Worksheets("Controle de Processos 2014")
        Set rIds = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        With rIds
            Set cl = .Find(Me.TextBox1.Value, LookIn:=xlValues)
            If Not cl Is Nothing Then Rw = cl.Row
        End With
        .Cells(Rw, 1).Value = Me.TextBox1.Value
        .Cells(Rw, 2).Value = Me.TextBox2.Value
        .Cells(Rw, 3).Value = Me.TextBox3.Value
        .Cells(Rw, 4).Value = Me.TextBox4.Value
        .Cells(Rw, 5).Value = Me.TextBox5.Value
    End With
    'UserForm_Initialize

End Sub

Att