Yatayda remove dublicate

[tamer42]

Merhaba,
Ekli dosyada 1 . satırda bazı veriler yazılı, burada dublice olanları slip sadece her veriden tek bir tane kalacak şekilde nasıl ayarlayabiliriz?
Sildiği hücreyi sola doğru yanaştıracak.
ekli dosyadaki gibi bir kod yazdım fakat biraz karışık oldu, daha sade hale nasıl getirebiliriz?

Sub Temizle()
Dim ara2 As String

Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim Son As Integer

Son = 5

For x = 5 To 500

        If Sayfa2.Cells(1, x) = "" Then
        
            Son = x
            Exit For
        
        End If

Next x

For i = 5 To Son

ara2 = Sayfa2.Cells(1, i)

    For j = i + 1 To Son
    
        If Sayfa2.Cells(1, j) = ara2 Then
        
            Columns(j).Select
            Selection.Delete Shift:=xlToLeft
            Range("D1").Select
            
            Son = Son - 1
        
        End If
    
    Next j


''If Sayfa2.Cells(1, i) = "" Then Exit Sub

Next i


End Sub

ilginize teşekkürler,

iyi Çalışmalar.

 

[EmrExcel16]

Merhaba , bu şekilde olur mu ?

Sub Temizle()
    Dim i As Integer
    For a = Cells(1, Columns.Count).End(1).Column To 1 Step -1
        If WorksheetFunction.CountIf(Range(Cells(1, 5), Cells(1, a)), Cells(1, a)) > 1 Then Cells(1, a).Delete Shift:=xlToLeft
    Next
End Sub