Team,

I have some values in column A where they include the negative and positive values and where i wrote the below one to filter and copy the same in adjacent column.

But i require is After filtering if a3, a7, a8 are having negative values they should copy to adjacent cells that is b3, b7, b8.Am unable to get it.
Please help........
Sub AutoFilter_in_Excel()
Range("A1").AutoFilter Field:=1, Criteria1:="<0", Operator:=xlAnd
Worksheets("sheet1").Range("A2:A7").Copy _
Destination:=Worksheets("sheet1").Range("c2")
Range("A1").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Worksheets("sheet1").Range("A2:A7").Copy _
Destination:=Worksheets("sheet1").Range("b2")
End Sub