Copy past certain cells if cell is 1 to other sheet.

I tried to record a Macro (because i cant write one) to copy past certain cells to a other sheet if a specific cell is 1.
I filter the one's en then copied the cells. But every time it works when i'm recording but when i run the macro it messus up.

Also tried copy past the hole table n delete the 0 after copy

Can someone help?

Here is a example.