Highlight unique cells on two different worksheet ranges

Yes, I could do something like this:

Sub Unique()
 'lastrows
  lrU = Sheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row
  lrPT = Sheets("Sheet2").Cells(Rows.count, "N").End(xlUp).Row
  
  Sheets("Sheet1").Range("DL4:DL" & lrU).Copy
  Worksheets("Sheet2").Range("N3").PasteSpecial xlPasteValues
  
  Dim rng, cell As Range
  
  Set rng = Sheets("Sheet2").Range("E3:N" & lrPT)
 
  ' Display all unique values in red.
  Dim uv As UniqueValues
  Set uv = rng.FormatConditions.AddUniqueValues
  uv.DupeUnique = xlUnique
  uv.Interior.Color = vbRed

End Sub

Which works OK.