What about deleting those cells?
Try this...
![]()
Sub RemoveDuplicateCells(ws As Worksheet) Dim i As Long, LR As Long Application.ScreenUpdating = False With ws LR = .Range("C" & Rows.Count).End(xlUp).Row .Range("B1:B" & lrw).RemoveDuplicates 1, xlGuess .Range("C1:C" & lrw).RemoveDuplicates 1, xlGuess .Range("D1:D" & lrw).RemoveDuplicates 1, xlGuess .Range("F1:F" & lrw).RemoveDuplicates 1, xlGuess End With Application.ScreenUpdating = True End Sub
Bookmarks