arr = Range("A1:A10").Value For i = 1 To UBound(arr) If arr(i, 1) = 0 Then arr(i, 1) = Empty Next Range("A1:A10").Value = arr
Set s = ActiveSheet.UsedRange.Columns: i = s.Count + 1 s(i).Offset(1).Formula = "=(b2+c2)/(a2+d2)" s(i).AutoFilter 1, ">=0.7", xlAnd