Filtering Arrays using the filter function

I'm experimenting with filtering arrays. I have 2 codes, one works if you hard code in array:

Please Login or Register  to view this content.

I get Richard and Eric.

but the other doesn't work if you use try to pick up the array from the worksheet in range A1 to A4:

James
Richard
Eric
Mike

Please Login or Register  to view this content.

I get run-time error 13;
Type mismatch
at line 30

I couldn't find an information online to modify Sub Test_02() work.

Does anyone know how to modify the second code to make it work?

Thanks,
Xrull