如何在过个条件中 出现任意三个条件以上的 数据筛选并删除

如何在过个条件中  出现任意三个条件以上的 数据筛选并删除，求高手指点

如：

       A  B   C   D  E  F   ...............                        如在（1,2,3,4,5,6,7,8）中出现3个数以上的 筛选并删除掉或者直接删除掉，求高人指点。谢谢。            
            3   5   9   7   8   4...............
            1   2   4   6   5   9..............
            5   4   6   3    2  1.............
            9   2    5  7    6  3.............
             .    .    .   .     .    .
             .    .    .    .     .    .

s="12345678"
n=[a65536].end(3).rRow
r=range("a1:a"&n)
for i=1 to n
m=0
for j=1 to 6
if instr(s,r(i,j))then m=m+1
if m>3 then
  cells(i,1).resize(,6)=""
  exit for
endif
next
next

不行啊，运行的时候说 对性不支持属性或方法
n=[a65536].end(3).rRow 后面的end（3） rrow代表什么意思啊

rrow多了R，是row