excel error testing cells without error gives type mismatch (CVErr(xlErrNA))

Question

I\'m starting to get the basics of VBA and I\'ve wrote a macro which does the stuff I want (might not be the most elegant way but it works).

One of the things it does is