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.

Here's another way to do it.

1) Remove that macro you had installed in the AWP sheet module, just delete it.
2) Open the ThisWorkbook module and paste in this macro:

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
    
    If LCase(Target.Value) <> "sold" Or LCase(sh.[A1]) <> "green tpa" Then Exit Sub
    
    Application.EnableEvents = False
        With Sheets("Sold")
            lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            Target.EntireRow.Copy Destination:=.Cells(lr, 1)
            Target.EntireRow.Delete xlShiftUp
        End With
    Application.EnableEvents = True
End Sub

This version will watch every sheet in your workbook. If at any time you type the word "sold" into any cell and on that same sheet is the word "Green TPA" in cell A1, then that row will be moved to the "SOLD" sheet.

I said to open the ThisWorkbook module in the left panel VBAProject panel. Instead you added a Module2 and inserted it there.

http://screencast.com/t/d744wZKC5Bab

No problem, we are a village.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.