Moving entire rows to new sheet once item has a status of "Sold"

I'm still very new to Macros and I'm looking to have the entire row move and delete from the sheet it is currently on to the Sold sheet once I type in the word sold in column S. I have gotten this to work in other excel sheets that I have but those are only 2 sheet spreadsheets. This one is several tabs and I'm not quite sure if it is possible or not. Any help would be greatly appreciated. I have attached the spreadsheet that I am currently working on and here is an example of macro that I usually use. I use this one and just edit it to the sheets and information that I am moving. I however have had no luck with the spreadsheet with multiple tabs on it.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngRow As Long, ws As Worksheet, nextrow As Long

    If Target.Cells.Count > 1 Then Exit Sub

    Application.ScreenUpdating = False

    If Not Intersect(Target, Columns("J:J")) Is Nothing Then
        If Target.Value = "Completed" Then
            lngRow = Target.Row
            On Error Resume Next
            With ThisWorkbook
                Set ws = Worksheets("Completed")
                If ws Is Nothing Then .Worksheets.Add().Name = "Completed"
                nextrow = Worksheets("Completed").Cells(Rows.Count, "A").End(xlUp).Row + 1
            End With
            With Sheet1 'code name
                .Range("A" & lngRow & ":M" & lngRow).Copy Destination:=Worksheets("Completed").Range("A" & nextrow)
                .Range("A" & lngRow).EntireRow.Delete shift:=xlUp
            End With
        End If
    End If

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Set ws = Nothing
End Sub

Thank you.