Сопоставление повторяющихся ячеек

Sub Final()
Dim var As Double
var = ActiveCell.Value

Range("B2:J10").Select
Selection.FormatConditions.Delete

If var <> 0 Then
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:=var
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("B2").Select
Else
    Range("B2").Select
    Exit Sub
End If
End Sub

Вышеприведенный код был предоставлен мне участником Jay Mangal, и он выделяет выбранные числа и показывает все совпадающие числа, но он закодирован для изменения условий формата и удаляет любое условное форматирование, которое у меня есть. Можно ли просто выделить цифры и больше ничего не делать.