While I see you're building an answer array you might consider using some of
Excel's built-in Advanced Filter functionality to create an answer table.
You could even read the result into an array if that is really the end
result you want:

Range("J2", Range("J2").End(xlDown)).AdvancedFilter xlFilterCopy, ,
Range("K2"), True

--
Jim Rech
Excel MVP