在列中搜索1并在找到时将整行粘贴到另一个工作表？

I am struggling with a bit of code that is getting stuck in a loop. I am trying to get the code to copy any rows where the values in column BD is 1 and paste the values for that entire row in to the next empty row in another worksheet. The code i am using is as below I am struggling with a bit of code that is gett