Worksheet Change event not copying and pasting data

My present code is below.

I have two sheets in a workbook.

1.) Sheet Named - Data and Pasted

2.) Data Sheet is protected. Columns J to O are unprotected, Starting from cell J3:O1000. Rows 1 and 2 are reserved for headers.

3.) The range J:O automatically sorts with the help of the below code whenever there is YES in column N , while No will always be after YES, in the end blanks.

4.) This is working but it is not copying and pasting as values of those rows from J:O where it shows YES in column N

I can't understand why it is not working. TIA

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim lastRow As Long
    Dim DataSheet As Worksheet
    Dim PastedSheet As Worksheet
    Dim sourceRange As Range
    Dim destinationRow As Long
    Dim isDataSheetUnprotected As Boolean
    
    Application.EnableEvents = False
    
    Set DataSheet = ThisWorkbook.Sheets("Data")
    Set PastedSheet = ThisWorkbook.Sheets("Pasted")
    
    Set KeyCells = Range("N3:N" & Cells(Rows.Count, "N").End(xlUp).Row)
    
    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        lastRow = DataSheet.Cells(DataSheet.Rows.Count, "J").End(xlUp).Row
        
        isDataSheetUnprotected = False
        If DataSheet.ProtectContents Then
            DataSheet.Unprotect Password:="Mama, I'm Coming Home"
            isDataSheetUnprotected = True
        End If
        
        DataSheet.Range("J3:O" & lastRow).Sort Key1:=DataSheet.Range("N3:N" & lastRow), _
            Order1:=xlDescending, Header:=xlNo
        
If UCase(Target.Value) = "YES" Then
    MsgBox "Copying data for row " & Target.Row
    destinationRow = PastedSheet.Cells(PastedSheet.Rows.Count, "A").End(xlUp).Row + 1
    MsgBox "Destination row in Pasted sheet: " & destinationRow
    Set sourceRange = DataSheet.Range("J" & Target.Row & ":K" & Target.Row)
    sourceRange.Copy
    DataSheet.Range("A" & destinationRow).PasteSpecial xlPasteValues
    MsgBox "Data copied and pasted"
    Application.CutCopyMode = False
End If
        
        If isDataSheetUnprotected Then
            DataSheet.Protect Password:="Mama, I'm Coming Home"
        End If
    End If
    
    Application.EnableEvents = True
End Sub

Your code is pasting the data on the data sheet instead of on the pasted sheet. I've changed the line as needed:

If UCase(Target.Value) = "YES" Then
    MsgBox "Copying data for row " & Target.Row
    destinationRow = PastedSheet.Cells(PastedSheet.Rows.Count, "A").End(xlUp).Row + 1
    MsgBox "Destination row in Pasted sheet: " & destinationRow
    Set sourceRange = DataSheet.Range("J" & Target.Row & ":K" & Target.Row)
    sourceRange.Copy
    PastedSheet.Range("A" & destinationRow).PasteSpecial xlPasteValues 'changed this line
    MsgBox "Data copied and pasted"
    Application.CutCopyMode = False
End If