Copiar rangos con criterios

[oshimate]

HOLA DE NUEVO A TODOS.

MIREN, ME GUSTARIA COPIAR SOLO UN RANGO DE CELDAS QUE ESTAN VISIBLES A LA MISMA FILA PERO EN OTRA COLUMNA.

YA TENGO LOS FILTROS PERO NO ME SALE EL COPIADO Y PEGADO ESPECIAL.

ASI TENGO MI CODIGO.

Sub filtrop()

X = Range("A1").Value

    ActiveSheet.Range("A2:E11").AutoFilter Field:=3, Criteria1:=">" & X, Operator:=xlFilterValues

    ActiveSheet.Range("A2:E11").AutoFilter Field:=2, Criteria1:="<" & X, Operator:=xlFilterValues

    ActiveSheet.Range("A2:E11").AutoFilter Field:=5, Criteria1:=">0"

    Range("E3").End(xlDown).SpecialCells(xlCellTypeVisible).Copy

    .PasteSpecial(xlPasteValues).Columns (4)

    Application.CutCopyMode = False

End Sub[/CODE]

EJEMPLO5.xls