Sub RunMe() Dim mDiff As Double mDiff = 0.05 Sheets("Sheet1").Select For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) If cell.Value - cell.Offset(0, 1).Value > mDiff Or cell.Offset(0, 1).Value - cell.Value > mDiff Then cell.EntireRow.Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) cell.EntireRow.Interior.ColorIndex = 3 End If Next cell End Sub
DON'T MISS