Problemas con filtros en macros

[gomescq]

Hola tengo un problema, cuando ejecuto la macro siempre me extrae los mismos, esto debido a que el filtro cuando la grabe yo quito los errores, y en vb me aparece alrrevez me aparece como si yo seleccionara digamos las 3 opciones (las opciones pueden ser desde 2 hasta 20) entonces siempre me copia los mismos
que puedo hacer o como lo puedo modificar

Sub listadp()
'
' listadp Macro
'

'
Range("C5:C6").Select
ActiveSheet.Range("$A$5:$I$26").AutoFilter Field:=3, Criteria1:= _
"=C-50-00003", Operator:=xlOr, Criteria2:="=CF-D-51-00003"
Range("B14").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B14:E15").Select
Selection.Copy
Range("B38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$5:$I$26").AutoFilter Field:=3
ActiveWindow.SmallScroll Down:=27
Range("A38").Select

De antemano agradesco su ayuda