lRow = cl.Row
'to...
            lRow = cl.Row - 7 (I think! my brain's a bit tired)

Dim bEditing As Boolean
Option Explicit

Sub UserForm_Initialize()
    Dim rng As Range
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("Employee's List and Details")
    Dim ws2 As Worksheet
    Set ws2 = Worksheets("CAREER PROGRESSION")
    Dim ws3 As Worksheet
    Set ws3 = Worksheets("ALLOCATIONS")
    Dim ws4 As Worksheet
    Set ws4 = Worksheets("LEAVE SCHEDULE")

    With ws1
        Set rng = .Range(.Cells(8, 2), .Cells(.Rows.Count, 1).End(xlUp))
    End With

End Sub

Private Sub CommandButton1_Click()
    Dim rng    As Range
    Dim cl     As Range
    Dim sFind  As String
    Dim lRow   As Long
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("Employee's List and Details")
    Dim ws2 As Worksheet
    Set ws2 = Worksheets("CAREER PROGRESSION")
    Dim ws3 As Worksheet
    Set ws3 = Worksheets("ALLOCATIONS")
    Dim ws4 As Worksheet
    Set ws4 = Worksheets("LEAVE SCHEDULE")

'   Sheet1.(Employee's List and Details)
    With ws1
    
        Set rng = .Range(.Cells(1, 2), .Cells(.Rows.Count, 1).End(xlUp))
'        sFind = rng.Value
        
        With rng
            Set cl = .Find(sFind, LookIn:=xlValues, lookat:=xlWhole)
            If Not cl Is Nothing Then
            lRow = cl.Row
            
            lRow = Application.WorksheetFunction.Max(ws1.Columns(1))
            lRow = lRow + 1
            
    bEditing = True
      
            lRow = ws1.Cells(Rows.Count, 1) _
            .End(xlUp).Offset(1, 0).Row
    
             .Cells(lRow, 1).Value = "=+R[-1]C+1"
             .Cells(lRow, 2).Value = Me.txtNewEmpNum.Value
             
    bEditing = False
    
              End If
        End With
      End With
      
'   Sheet2.(CAREER PROGRESSION)
'.................
'.................

Dim MySearch as Range
Set MySearch = Sheets("MySheet").Columns("A").Find(Textbox1.text)
If Not MySearch Is Nothing Then 
Sheets("MySheet").Range(MySearch.Address).Select
Textbox2 = Sheets("MySheet").Range(MySearch.Address).Offset(0,1)
Else
Msgbox "Not Found"
End If

Private Sub txtBDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If txtBDate = vbNullString Then Exit Sub ‘ <-- added back this line, if this
           is the correct method and it’s seems ok, please correct me if this is
           not right.
    Cancel = Not (IsDateEntryValid(Me.txtBDate))
End Sub