Macro Add row & add values in 2 different textbox

Hi Alphafrog:

this function

Private Sub CommandButton1_Click()
    With Cells.Find("*", , , , xlByRows, xlPrevious)
        Range("D" & .row).Value = TextBox2.Value
        Range("F" & .row).Value = TextBox3.Value
    End With
    Unload Me
End Sub

Is in the button of the application or in other section??.. because don't work me
Other idea?

Best Regards!!