Paste Special method of Range class failes only sometimes

Question

What I am trying to do is:

1. create new Sheet in my Active Workbook (wsData)

2. Open workbook with Filename (wbimport)

3. Autofilte