Cut and Paste entire row based on criteria - Need help

Hello everyone,

I am new to VBA and I know this question has been asked multiple times. I have ready these responses, but I cannot seem to get any of them to work for me. I am trying to write a macro which will select any row in ws "Input-Project_Register" that has "Not Approved" selected in Column 'H' and cut and paste it into the first empty row in ws "Input-Archive" and select any row in ws "Input-Project_Register" that has "Completed" in Column 'BI' and cut and paste it into the first empty row in ws "Input-Complete". I want this macro to be assigned to an Active X control button.

Any help would be greatly appreciated. I am trying to get this figured out today so that it is complete by the start of work tomorrow.

Thank you in advance for any help!

Best Regards,

Nathan

Alansidman,

Thank you for your response. Attached is my sanitized file. I have removed a lot, but I think it retains everything which is necessary to develop this functionality.

Thank you so much for your help.

Best Regards,

Nathan

Are you sure it is column BI? Try this:

Please Login or Register  to view this content.

Try this. Not 100% sure how it will work but I don't want to have to rewrite the code a different way to delete the rows.

Please Login or Register  to view this content.

Stnkynts,

I added .Offset(1) to the .AutoFilterMode.Range.Delete because it was deleting my header row, but it works like a charm. Thank you for all your help!!!! I really appreciate it!

Best Regards,

Nathan