ADD / EDIT button not working correctly

[Phillip2]

I am having a problem with my Add/Edit Button.

What I want is if the textbox for my Record Number (TBrecord) has a value then I want it to go and edit that Record.
If the textbox doesn't have a value I want it to go to the lastRow available in my data worksheet and create a new Record number.

However, what it is doing is getting the value and going to that line number and then replacing the incorrect record.

___________________________Add / Edit Record Button____________________________________________

Private Sub Add_Click()

If TBrecord.Value = "" Then
    LastRow = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
    EditRow = LastRow + 1
    TBrecord = Format(EditRow.Value, "000")

Else: EditRow = TBrecord.Value
End If

'____________Information Frame________________________

Cells(EditRow, 1).Value = TBrecord.Value
Cells(EditRow, 2).Value = TBccxName.Text

 

[Yongle]

Is this what you want

Private Sub Add_Click()
    Dim cel As Range, rng As Range, ws As Worksheet, v As Long, editRow As Long
    Set ws = Worksheets("Data")
    Set rng = ws.Range("A:A")
    
    On Error Resume Next
    v = TBrecord.Value
    If v > 0 Then editRow = rng.Find(v, lookat:=xlWhole).Row
    If editRow = 0 Then
        Set cel = rng.Find("*", searchdirection:=xlPrevious)
        editRow = cel.Row + 1
        TBrecord.Value = cel.Value + 1
    End If
    

'____________Information Frame________________________
    
    ws.Cells(editRow, 1).Value = TBrecord.Value
    ws.Cells(editRow, 2).Value = TBccxName.Text
    TBrecord = ""
    TBccxName = ""
End Sub

 

[Phillip2]

Yongle, I believe this is exactly what I need. Thank you so much.