Run time error in VBA Excel 2019

hi, need help pls

i have a sheet run well on Excel 2019 and i have this message error:
Run-time error '-2147024809 (80070057)'

i have problem with yellow mark on VBA when i add a new data from UserForm:

If IsNumeric(Me("emp" & DataCol)) Then


and this is the code below :

'Fill Data in Excel Sheet

With Sheet2
.Range("A4") = "=Iferror(Max(empid)+1,1)"
Me.emp1 = .Range("A4").Value
'Check Form for all field are filled
If Me.emp2 = Empty Then
MsgBox ("Employee Name is Mandatory")
Exit Sub
End If
'Fill Data in Excel Sheet
LastAvailRow = .Range("E99999").End(xlUp).Row + 1
.Range("E" & LastAvailRow) = Val(Me.emp1)
For DataCol = 2 To 29
If IsNumeric(Me("emp" & DataCol)) Then
.Cells(LastAvailRow, DataCol + 4) = Val(Me("emp" & DataCol))
Else
.Cells(LastAvailRow, DataCol + 4) = Me("emp" & DataCol)
End If
Next DataCol
Me.EmpNewBtn.Visible = True
Me.EmpUpdBtn.Visible = True
Me.EmpCanBtn.Visible = False
Me.EmpSaveBtn.Visible = False
Unload Me
Employee_Management.Show
End With
End Sub

thank you an advance