Omitir ordenación en Macro

Hola amigos...

Tengo un problema, como no, con una chapucilla que he hecho (con
vuestra ayuda, como siempre)... En esta macro

Rows("1:2").Select
Selection.Delete Shift:=xlUp
Range("A:A,C:C,D:D,F:F,H:H").Select
Range("H1").Activate
Selection.Delete Shift:=xlToLeft
With Range("C2").CurrentRegion
.Select
numfilas = .Rows.Count
End With
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="FAC"
Range("A2:" & "A" & numfilas).EntireRow.Delete Shift:=xlUp
Selection.AutoFilter
Range("C2").Select

..ordeno una base de datos, poniendo como primer criterio "FAC", con
objeto de luego eliminar todas las filas que contengan ese criterio.
Luego se van encadenando otras instrucciones...El problema es que hay
veces que en ese fichero no existe ninguna celda con ese "FAC", por
la cual todo lo que va detrás falla estrepitosamente.

¿Como podria solucionarlo?

Gracias por vuestra ayuda