How to remove duplicates with a criteria

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

Sub RemoveDuplicateColumn()
Dim iCl As Integer, rFound As Range

iCl = Cells(1, Columns.Count).End(xlToLeft).Column

Application.ScreenUpdating = False

Rows("1:1").Insert

With Range("B1", Cells(1, iCl))
    .Formula = "=IF(COUNTIF(R2C1:R[1]C,R[1]C)>1,""Delete"",""Retain"")"
    .Value = .Value
    Set rFound = .Find("Delete")
    Do While Not rFound Is Nothing
        rFound.EntireColumn.Delete
        Set rFound = .Find("Delete")
    Loop
End With

Rows("1:1").Delete

Application.ScreenUpdating = True

End Sub

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button