Instead of the Selection Change code for Employee Details (which seems to have problems) try this change event instead
[vba]Private Sub Worksheet_Change(ByVal Target As Range)
Dim ID As String
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = Cells(Rows.Count, 2).End(xlUp).Address Then
ID = Target.Offset(-1, -1)
Target.Offset(, -1) = Split(ID)(0) & " " & Split(ID)(1) + 1 & " " & Split(ID)(2)
Target.Offset(, 3).FormulaR1C1 = "=IF(RC[-1]<>"""",DATEDIF(RC[-1],NOW(),""y"") & "" years, "" & DATEDIF(RC[-1],NOW(),""ym"") & "" months, ""& DATEDIF(RC[-1],NOW(),""md"") & "" days"","""")"
End If

End Sub


[/vba]