My excel keep on crashing when I perform the code - excel

Question

I have a Sub NewRecord() to create new record and a Sub CB_No_Change() to recall existing record by number to be displayed on the user form. For Sub NewRecord(), I write the code so that some default values are put into the excel sheet in the next empty row then this new record is recalled by Sub CB_No_Change() to be displayed on the user form and can be edited. The Sub CB_No_Change() is working fine on its own, but the Sub NewRecord() usually crashes when being run (the excel application does not respond and automatically reboots). I suspect there may be a loop between this 2 subs? Any ideas?
Private Sub NewRecord()
Dim LastRow As Integer
Dim emptyRow As Integer
LastRow = WorksheetFunction.CountA(Range("$A:$A"))
emptyRow = LastRow + 1
Cells(emptyRow, 1) = "xxx"
Cells(emptyRow, 2) = "xxx"
Cells(emptyRow, 3) = "xxx"
Cells(emptyRow, 4) = "xxx"
Cells(emptyRow, 5) = "xxx"
Cells(emptyRow, 6) = "xxx"
Cells(emptyRow, 7) = "xxx"
Cells(emptyRow, 8) = "xxx"
Cells(emptyRow, 9) = "xxx"
Cells(emptyRow, 10) = "xxx"
Cells(emptyRow, 11) = "xxx"
Cells(emptyRow, 12) = "xxx"
Cells(emptyRow, 13) = "xxx"
Cells(emptyRow, 14) = "xxx"
Cells(emptyRow, 15) = "xxx"
Cells(emptyRow, 16) = "xxx"
Cells(emptyRow, 17) = "xxx"
Me.CB_No = LastRow
Me.TB_RecdDate.SetFocus
End sub
Private Sub CB_No_Change()
Dim FindNo As String
Dim r As Integer
Dim TrgtNo As Range
If Me.CB_No <> "" Then
FindNo = Me.CB_No.Value
Set TrgtNo = Worksheets("One").Range("$A:$A").Find(FindNo, SearchOrder:=xlRows, SearchDirection:=xlPrevious, Lookat:=xlWhole)
If Not TrgtNo Is Nothing Then
r = Worksheets("One").Range("$A:$A").Find(FindNo, SearchOrder:=xlRows, SearchDirection:=xlPrevious, Lookat:=xlWhole).Row
CB = Cells(r, 1)
TB = Cells(r, 2)
Me.TB = Format(Me.TB, "yyyy-mm-dd")
TB = Cells(r, 3)
Me.TB = Format(Me.TB, "yyyy-mm-dd")
TB = Cells(r, 4)
TB = Cells(r, 5)
TB = Cells(r, 6)
TB = Cells(r, 7)
CB = Cells(r, 8)
CB = Cells(r, 9)
CB = Cells(r, 10)
TB = Cells(r, 11)
TB = Cells(r, 12)
TB = Cells(r, 13)
CB = Cells(r, 14)
CB = Cells(r, 15)
CB = Cells(r, 16)
TB = Cells(r, 17)
Else
Exit Sub
End If
Else
Exit Sub
End If
End Sub

Answer 1

Looking at your code, it looks like you are trying to get the row number of the last row in column A, so you can get the row number of the first empty row adding +1 to LastRow.
You are using CountA, a function that just counts non-empty cells in a range.
WorksheetFunction.CountA method (Excel)
This will work only if all your data is continuous. But if your data is like this:
You can see this with an easy code applied to data in the image:
Sub test()
Dim LastRowWithCountA As Long
Dim LastRowNormal As Long
LastRowWithCountA = Application.WorksheetFunction.CountA(Range("A:A"))
LastRowNormal = Range("A" & Rows.Count).End(xlUp).Row
Debug.Print "COUNTA: " & LastRowWithCountA & " VS " & "NORMAL:" & LastRowNormal
End Sub
It will return COUNTA: 15 VS NORMAL:19.
So the best option to get the last non empty row in a column is Range("A" & Rows.Count).End(xlUp).Row
About your error, replaceIntegers with Long. Integers got a lower limit. I recommend you to read all data types admited.
Data type summary