Encuentre celdas en una hoja y copie las filas en otra hoja

Tengo una hoja llamada Backlog que contiene filas y columnas de datos. Necesito un código que busque fila por fila en la 2da a la última columna buscando # N / A. Cuando encuentra # N / A, debe verificar la última columna si contiene una C o no. Si contiene una C, entonces toda la fila debe agregarse a una hoja llamada Cerrar sesión. Si la última columna no contiene una C, entonces toda la fila debe agregarse a una hoja llamada Denegada. La fila debe eliminarse de la hoja de Backlog original una vez que se haya movido a Cerrar sesión o Denegado. El código que tengo a continuación no funciona. Después de la primera instrucción For, va a End Sub, pero no hay ningún error de compilación.

Private Sub CommandButton2_Click()
    Dim IMBacklogSh As Worksheet
    Set IMBacklogSh = ThisWorkbook.Worksheets("Backlog")
    Dim logoffSh As Worksheet
    Set logoffSh = ThisWorkbook.Worksheets("Claims Logged off")
    Dim deniedsh As Worksheet
    Set deniedsh = ThisWorkbook.Worksheets("Claims Denied")

    IMBacklogSh.Select
    Dim i As Long
    For i = 3 To Cells(Rows.Count, 13).End(xlUp).Row
        If Cells(i, 13).Value = "#N/A" Then
            If Cells(i, 14).Value = "C" Then
            IMBacklogSh.Rows(i).EntireRow.Copy Destination:=logoffSh.Range("A" & logoffsh.Cells(Rows.Count, "A").End(xlUp).Row + 1)
            Else
            IMBacklogSh.Rows(i).EntireRow.Copy Destination:=deniedsh.Range("A" & deniedsh.Cells(Rows.Count, "A").End(xlUp).Row + 1)
            End If
        End If
    Next i
End Sub

Respuestas a la pregunta(1)

Su respuesta a la pregunta