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