Problem with data transfer (erasing old data)

So, the issue is we have a worksheet (I did not create) and it basically keeps track of a data list that can be transferred to other sheets upon a drop down.
It was working fine, now all of a sudden, it's deleting the old data that was there.

We have 3 sheets.
Sheet 1 being open locks
Sheet 2 being closed locks
Sheet 3 being turn down locks
There is a drop down on the open locks sheet that allows us to move it to another sheet based on whether it is closed or a turn down.

Say you move an open lock to TD, it is currently deleting the last entry.

If there is person A, B, C
You move A, it will transfer
You move B, it will transfer but delete A
You move C, it will transfer but delete B.

Please Login or Register  to view this content.

Any help is greatly appreciated as the person that created the workbook is way too busy to fix it. Hence, why I'm here. Thanks!

So, I'm thinking the issue is that it is copying the data to a new line based on the code

Please Login or Register  to view this content.

This code basically says, if there is something in this row filled out, it would be a "1" and if there is nothing in the row it would be a "0"
My guess is that the vba is saying that if there is a 1, add it to the next row. This is where the issue is, as now the formula is not being copied to other rows, the only way to make it work is manually add that formula EVERY time I want to transfer to another sheet.

Just trying to think this through and hopefully get some help. Figured any information would be helpful.