Condición para cortar y pegar en otra hoja

Te anexo la macro para copiar, pegar y cortar. No comentaste a cuál hoja se debe ir el segundo bloque, así que también lo envié a la hoja "pendientes"

Sub CortarPendientes()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Set h1 = Sheets("escuela")
    Set h2 = Sheets("pendientes")
    '
    For i = h1.Range("S" & Rows.Count).End(xlUp).Row To 1 Step -1
        Select Case UCase(h1.Cells(i, "S"))
            Case "EXTRAORDINARIO", "REPROBADO"
                u = h2.Range("S" & Rows.Count).End(xlUp).Row + 1
                h1.Rows(i).Copy h2.Rows(u)
                h1.Rows(i).Delete
        End Select
    Next
    '
    For i = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row To 1 Step -1
        Select Case h1.Cells(i, "Q")
            Case "", 0
                u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row + 1
                h1.Rows(i).Copy h2.Rows(u)
                h1.Rows(i).Delete
        End Select
    Next
    MsgBox "Terminado", vbInformation
End Sub

Prueba y me comentas.

S a l u d o s . D a n t e   A m o r

Si es lo que necesitas.

Dante que amable por tu tiempo para contestarme y te pido una disculpa por contestar hasta ahora, pero fíjate que tengo dos situaciones:

1.- Es que tengo más datos en la hoja de pendientes, y quiero que lo coloque al final de la ultima Fila. Dado que tengo más registros. Que busque en toda la hoja sin importar espacios vacíos.

Agradezco tu apoyo y en lo que te pueda ayudar ofrezco mi apoyo incondicional

Saludos