Testing for existence of value in array throws an error

[Jonathan78]

While adding new values to an array I'd like to check with each new value if it already exists in the array.
The following however throws an error on this line

If IsNumeric(Application.Match(Cells(w, 6).Value, Arrr, 0)) Then

invalid procedure call or argument

Dim Arrr() As Variant
Count = 0
For w = 4 To 37

    If IsNumeric(Application.Match(Cells(w, 6).Value, Arrr, 0)) Then
        abc = True
    Else
        abc = False
    End If

    If Cells(w, 5).Value = "NO" And abc = False Then
        Count = Count + 1
        ReDim Preserve Arrr(1 To Count)
        Arrr(Count) = Cells(w, 6).Value
    End If
Next w

Link to file