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.

Private Sub worksheet_change(ByVal target As Range)
Application.ScreenUpdating = False
intcolumn = target.Column
introw = target.Row

                If target.Column = 14 And target.Cells.Count = 1 Then
       If target.Value = "Closed" Then
       If MsgBox("Do you want to move to Closed? ", vbQuestion + vbYesNo, "MyApp") = vbYes Then
       Range("A1910:R1910").Select
        Selection.AutoFill Destination:=Range("A1910:R1911"), Type:=xlFillDefault
       intcolumn = target.Column

introw = target.Row

           target.EntireRow.Copy
           Sheets("Closed Locks").Activate
           ActiveSheet.Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
           ActiveSheet.Paste
                      Sheets("Open Locks").Activate
           target.EntireRow.Delete
           Range("C11").Select
                   
                 End If
                 Else
                 
                           If target.Column = 14 And target.Cells.Count = 1 Then
       If target.Value = "TD" Or target.Value = "RegTD" Then
              If MsgBox("Do you want to move to TD? ", vbQuestion + vbYesNo, "MyApp") = vbYes Then
       Range("A1910:R1910").Select
        Selection.AutoFill Destination:=Range("A1910:R1911"), Type:=xlFillDefault
       intcolumn = target.Column

introw = target.Row

           target.EntireRow.Copy
           Sheets("TD Locks").Activate
           ActiveSheet.Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
           ActiveSheet.Paste
                      Sheets("Open Locks").Activate
           target.EntireRow.Delete
                       Range("C11").Select
              End If
End If
End If
End If
End If
End Sub

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!