Count Contiguous cells only

Hello everyone
I have some data in columns("B:R") ..
The required in column A is to type Yes or No according to one criteria which is :
If there are 6 or more adjacent cells which has data in them then type Yes in column A

For example: in row 1 Range("I1:N1") all cells have data so the criteria is achieved so type "Yes" in A1

In Row 2 there is no range achieved the criteria so type in A2 the word "No"

I prefer UDF function for that task
Thanks advanced