Duda en filtrado con Macro

Hola, ésta es mi 1ra consulta.
Tengo la siguiente duda,
Tengo una macro que Toma un dato de una columna, se activa otro archivo, utiliza el filtro, se activa la columna del archivo original y en la celda de al lado en el que se tomó dato, hace un pegado especial (se transponen los archivos tomados que se filtraron).
Todo marcha bien, pero cuando el dato no se encuentra el dato en el filtro, me salta el error. Entonces tengo que modificar el código, y partir desde donde no encontró los datos. La idea es que el código siga de largo y salte las partes que no encuentre datos.
Éste es el código
Sub Macro1()
For Each celda In Range("CB653:CB5916") 'Cambiar 1er rango si el que se detectó
                     'no tiene Coloquial. (que no se encontró en el filtrado)
                     'Partir desde el punto en que se dejó y no
                     'desde el principio.
    Windows("MSF_601_COLOQUIALES_22062010.xlsx").Activate
    ActiveSheet.ListObjects("Tabla_Consulta_desde_ellprd").Range.AutoFilter Field _
        :=4, Criteria1:=celda, Operator:=xlAnd
    Selection.Copy
    Windows("REGISTRO EQUIPO LINEA BASE 160610 C0NCENTRADORA.xls").Activate
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=True
    ActiveCell.Offset(1, -1).Select
Next
End Sub
Si necesitas un ejemplo, te puedo mandar los archivos en la cuál estoy trabajando. Para que veas cómo opera el código digo yo.
Saludos!, un abrazo