Recalculo de una función

Tengo una función calculo(), en la que utilizo el valor de una celda K3 (valor actual 2,9), pero al cambiar el valor de esa celda a 3,5 no cambia los valores de las celdas donde llamo a calculo(), tengo que ejecutar la función calculo() en todas las celdas.

Function CALCULO(FING As Range)

COLUMNA = ActiveCell.Column
FILA = FING.Row

If Year(Cells(FILA, 3)) <= 2008 Then
EDAD_INCREMENTO = 2008 - Year(Cells(FILA, 2))
Else
EDAD_INCREMENTO = Year(Cells(FILA, 3)) - Year(Cells(FILA, 2))
End If

Set Busca = Sheets("DATOS").Range("B:B").Find(EDAD_INCREMENTO, LookIn:=xlValues)
If Not Busca Is Nothing Then
HHH = Busca.Row
Set R = Sheets("DATOS").Range("G:G")
INCREMENTO = R.Cells(HHH, 1) 'INCREMENTO
Else
'MsgBox "No se encontró el dato buscado"
End If
Set Busca = Nothing 'se libera la variable

EDAD_RECIBO = Cells(4, COLUMNA) - Year(Cells(FILA, 2))

Set Busca = Sheets("DATOS").Range("B:B").Find(EDAD_RECIBO, LookIn:=xlValues)
If Not Busca Is Nothing Then
HHH = Busca.Row
Set R = Sheets("DATOS").Range("I:I")
CUOTA = R.Cells(HHH, 1) 'CUOTA
Else
'MsgBox "No se encontró el dato buscado"
End If

Set Busca = Nothing 'se libera la variable

If Val(Cells(4, COLUMNA)) = 2013 Then
CUOTA = CUOTA + (CUOTA * Cells(3, COLUMNA)) 'esta es la celda K3
CUOTA = CUOTA * 12
CUOTA = CUOTA * ((INCREMENTO) ^ (Cells(4, COLUMNA) - 2005))
CUOTA = Round(CUOTA, 2)
Else
CUOTA = CUOTA + (CUOTA * Cells(3, COLUMNA)) 'esta es la celda K3
CUOTA = CUOTA * 12
CUOTA = CUOTA * ((INCREMENTO) ^ (Cells(4, COLUMNA) - 2005))
CUOTA = Round(CUOTA, 2)
End If
CALCULO = CUOTA
End Function

Como se recalcularia la función al cambiar el valor de la celda K3 sin tener que ejecutarla cada vez.

Gracias