Macro gives me expected en sub error

Hello,

I have the below macro, but it gives me compile error expected end sub. This macro below I have copied and paste hoping it would work because I am trying to use countif with column A (a d/m/y format) and the below is to be able to use sumif and countif with date format. Thanks

Sub CountifVBAcontainingdateformat()

Function TypeCell(A As Range) As Variant
Dim V() As Variant
Dim Cel As Range
Dim I As Integer
Application.Volatile '// For revaluation in interactive environment
ReDim V(R.Cells.Count - 1) As Variant
I = 0
For Each Cel In R
V(I) = VarType(Cel) '// Output array has the same size of input range.
I = I + 1
Next Cel
TypeCell = V

End Sub