Can someone please point what i am doing wrong. I am trying to get a table with given values in (C8-C16) and find the factorial of the corresponding number in (D8-D16). If the given value is 0 put 1. if the given value is negative have the function write negative. if the given value is a non-integer then write "non-integer"

I can find the factorial of C8-C14 which are integers. However, for C15 (6.2) i keep getting 720 instead of non-integer. And for C16 (-1) i keep getting #NUM!

Function Factorial (Fact As Range) Dim n1 As Integer For i = 1 To n = Sheets ("Factorial"). Cells(i + 7, 3) n1 = n If n