Delete one column containing duplicate

[marc005]

Let say we have the following:

[TABLE="width: 500"]
<tbody>[TR]
[TD]Column A
[/TD]
[TD]Column B
[/TD]
[TD]Column C
[/TD]
[TD]Column D
[/TD]
[TD]Column E
[/TD]
[/TR]
[TR]
[TD]aa
[/TD]
[TD]bb
[/TD]
[TD]cc
[/TD]
[TD]aa
[/TD]
[TD]ee
[/TD]
[/TR]
</tbody>[/TABLE]

I know want to delete one of the columns containing a duplicate with VBA code.
Since aa already exist in column A I want to delete column D

 

[marc005]

I think I answer my own question
Transpose the data and run:

Columns("A:A").Select
ActiveSheet.Range("$A$1:$A$6").RemoveDuplicates Columns:=1, Header:=xlNo

and then transpose back

 

[kevatarvind]

try below code

Sub Test()
Dim lcol As Long
Dim i As Integer
lcol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = lcol To 2 Step -1
    Cells(1, i).Select
    Set crng = Range(Cells(1, 1), Cells(1, i))
    Set cval = Cells(1, i)
    my = Application.WorksheetFunction.CountIf(crng, cval)
    If my > 1 Then Columns(i).Delete
Next
End Sub