Duplicación de resultado en una Función excel

Function C_C_HOMBRES(FING As Date)
   COLUMNA = ActiveCell.Column
   FILA = ActiveCell.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("C:C")
      CUOTA = R.Cells(HHH, 1) 'INCREMENTO
   Else
      MsgBox "No se encontró el dato buscado"
   End If
   Set BUSCA = Nothing 'se libera la variable
   CUOTA = CUOTA * 12
   CUOTA = CUOTA * (INCREMENTO) ^ (Cells(4, COLUMNA) - 2005)
   C_C_HOMBRES = CUOTA
End Function

Esta función si la copio celda a celda el resultado es correcto, pero si la copio en varias celdas a la vez, el resultado se repitehttp://imageshack.us/photo/my-images/831/imagen01f.jpg/