Assistance with Compile Error: Type Mismatch VBA Code

Hello,

I've been searching endlessly for assistance with a specific piece of code that I've written. Specifically, I keep getting a Compile Error: Type Mismatch error when trying to step through my code at the first "<" sign in my If statement. Also, I've tried to substitute a case statement for the If statement and still ended up with the same type of error. Any assistance would be greatly appreciated. Thank you

Sub CalculatingEndDateStatus()

    Dim NumberOfDays() As Variant
    Dim Answer2() As Variant
    Dim Dimension2 As Long, Counter As Long
    
    Sheet2.Activate
    
    NumberOfDays = Range("G2", Range("G2").End(xlDown))
    
    Dimension2 = UBound(NumberOfDays, 1)
    
    ReDim Answer2(1 To Dimension2, 1 To 2)
    
    For Counter = 1 To Dimension2
    
        If NumberOfDays < 0 Then
            Answer2(Counter, 1) = "Past End Date"
        ElseIf NumberOfDays < 30 Then
            Answer2(Counter, 1) = "Less Than 1 Month"
        ElseIf NumberOfDays < 60 Then
            Answer2(Counter, 1) = "Less Than 2 Months"
        ElseIf NumberOfDays < 90 Then
            Answer2(Counter, 1) = "Less Than 3 Months"
        Else
            Answer2(Counter, 1) = "More Than 3 Months"
        End If
        
    Next Counter
    
    Range("H2", Range("H2").Offset(Dimension2 - 1, 1)).Value = Answer2
    
    Erase NumberOfDays
    Erase Answer2

End Sub