Copy Specific Columns from a Filtered Range

Arkadi's code is fine, though it throws a Runtime error 13 Type Mismatch error, as the conditions in the if statement inside the for loop fail as they are generated via formulas from another module in the same workbook. Hence, the values automatically change to #VALUE!

The same problems occurs even in k64's code.
How can this be fixed ?