Moving rows to a different worksheet based on multiple criteria

[tfagan1978]

Hi all,

I am using the following code to move rows from my worksheet if the cell in column K = Complete.

I need to also move rows if the cell in column K = Cancelled. The following is the code I am using. I'm not great with VBA yet so i am having a problem adding the 2nd criteria of cancelled. Can anyone tell me how to amend my code to include Cancelled as a critreria?

Sub CopyRequests()

Worksheets("SOR Requests").Unprotect Password:="DC2"
Worksheets("Completed SOR's").Unprotect Password:="DC2"

    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim lngR As Long
    
    I = Worksheets("SOR Requests").UsedRange.Rows.Count
    J = Worksheets("Completed SOR's").UsedRange.Rows.Count
    
    If J = 1 Then
        If Application.WorksheetFunction.CountA(Worksheets("Completed SOR's").UsedRange) = 0 Then J = 0
    End If
    
    Application.ScreenUpdating = False
    
    For lngR = I To 10 Step -1
        If Application.CountIf(Worksheets("SOR Requests").Rows(lngR), "Complete") > 0 Then
                With Worksheets("SOR Requests").Rows(lngR)
                Worksheets("Completed SOR's").Rows(J + 1).Value = .Value
                .Delete
            End With
            J = J + 1
        End If
    Next lngR
    
     
    Application.ScreenUpdating = True
    
    Range("B10:B200").Formula = "=IF(A10="""","""",WORKDAY(A10,9,Holidays!$A$1:$A$8))"
    Range("C10:C200").Formula = "=IF(A10="""","""",NETWORKDAYS($A$1,B10,Holidays!$A$1:$A$8))"
    
Worksheets("SOR Requests").Protect Password:="DC2"
Worksheets("Completed SOR's").Protect Password:="DC2"

End Sub