刚刚接触Excel,如何将编号的代码应用到单元格中？

老师给了一份员工信息表,让我们根据身份证计算员工年龄
以下是写好的代码
Function kk(ss As String)
If Len(ss) = 18 Then
kk = Year(Date) - Val(Mid(ss, 7, 4))
ElseIf Len(ss) = 15 Then
kk = Year(Date) - Val("19" & Mid(ss, 7, 2))
Else
MsgBox ("身份证号码有误，无法计算")
End If
End Function