Copying Columns till last row from one sheet to another

Question

I\'m having the following problem. I have an array KWarray, which contains the weeknumbers. This array is used to set a filter in the sheet "Import". My macro now