循环遍历列搜索，并复制每个单元格的行，只要它符合某些条件

I decided on trying to autofiter anything that does not meet my criteria and then selecting the remaining rows as a range. However, this code is buggy and has given me trouble. The column I am trying to loop through is Column "A", and then I copy the full range, and paste in another sheet in the workbook named Payroll Journal in a specific Range("B9:E28") The full code that I am using for this is:I decided on trying to autofiter anything that