Expected end sub! ошибка в экселе

Question

Function Monthlytax(Annual_TI As Currency, Resident_status As Integer) As Variant
If Annual_TI <= 0 Then
Monthlytax = "Mistake!"
ElseIf Annual_TI <= 185400 Then
Monthlytax = Annual_TI * 0.05
ElseIf Annual_TI <= 494400 Then
Monthlytax = 9270 + 0.08 * (Annual_TI - 185400)
ElseIf Annual_TI <= 2472000 Then
Monthlytax = 33990 + 0.13 * (Annual_TI - 494400)
ElseIf Annual_TI <= 7416000 Then
Monthlytax = 291078 + 0.15 * (Annual_TI - 2474000)
Else
Monthlytax = 1032678 + 0.2 * (Annual_TI - 7416000)
End If
End Function
Sub Monthlytax1()
Function Monthlytax(Annual_TI As Currency, Resident_status As Integer) As Variant
If Annual_TI <= 0 Then
Monthlytax = "Mistake!"
ElseIf Annual_TI <= 185400 Then
Monthlytax = Annual_TI * 0.05
ElseIf Annual_TI <= 494400 Then
Monthlytax = 9270 + 0.08 * (Annual_TI - 185400)
ElseIf Annual_TI <= 2472000 Then
Monthlytax = 33990 + 0.13 * (Annual_TI - 494400)
ElseIf Annual_TI <= 7416000 Then
Monthlytax = 291078 + 0.15 * (Annual_TI - 2474000)
Else
Monthlytax = 1032678 + 0.2 * (Annual_TI - 7416000)
End If
End Function

ivan_10241 · Accepted Answer

Даже в ошибке написано "Expected end sub!", что прямо переводиться как "Ожидание конца подпрограммы! ". Где "End Sub"?
Не знаете английского - пользуйтесь переводчиком. Не знаете программирования скриптов в Excel - пользуйтесь Help'ом этой же программы, там каждая функция расписана с примерами.