Problems with Filter VisibleArea and IF statement

[dacos]

Hi there,

I was wondering if anybody can help me solve my problem or point me in right direction.
I am trying to write a Macro that will filter specific data that uses Loop for filter criteria and then copy and paste to the next empty cell in another sheet after finding that specific criteria. I have attached a sample file with the code.

I have a problem with Filter VisibleArea and If statement. When filter visible area is “nothing” then whole data is copied and pasted.

Thanks for your help,

Regards,

Dacos

[AB33]

Try the attached. My code is found below your code.

[dacos]

Thanks so much, works pefectly.

Best regards.

Dacos