Cuting rows from multiple worksheets and pasting in another based on cell value

[bamhir]

Greeting,

I have a workbook containing all of my coworker's actions but they stopped using it because everything is done manually, there is a worksheet named after every one of them and another for completed worksheets, and all of their worksheets have the same number of columns except the completed one with column A being the person responsible for the action.

I'm trying to find a VBA code to cut a row from the active worksheet if the word "done" is in the column R and paste it into the next free row in the "Complete PU Actions" worksheet but in column B because in column A it copies the worksheet's name. My company has version 2019.

I have searched for the past two days for a working code but the best I got was one that passes into a row above 90 and when I deleted the rows below it would paste it in the same row over and over.

I only have the experience of the past two days but I saw a lot of codes naming the last free row as something in a private sub, wouldn't it write over itself if I used the same private sub in each worksheet? Could I use one code in the model of the workbook and it would work in all of the worksheets?

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your "Complete PU Actions" sheet and one of the coworkers sheets. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).