Digamos que esta coluna seja a A1 na Plan1 e você queira copiar o resultado para a A1 na Plan2: Sheets("plan1").Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<=0.5" Range("A1").CurrentRegion.Copy Sheets("plan2").Range("A1").PasteSpecial Application.CutCopyMode = False Se funcionar, avisa.