You could simply amend your original code to something like this:
Sub RemoveDuplicateCells(ws As Worksheet)
Dim i As Long
Dim LR As Long
Dim vColumns As Variant
Dim vCol As Variant
vColumns = Array("B", "C", "D", "F")
Application.ScreenUpdating = False
With ws
LR = ws.Range("C" & Rows.Count).End(xlUp).Row
For i = LR To 8 Step -1
For Each vCol In vColumns
With ws.Range(vCol & i)
If WorksheetFunction.CountIf(ws.Columns(vCol), .Value) > 1 Then .ClearContents
End With
Next vCol
Next i
End With
End Sub
Bookmarks