Aynı isimlerin hizaya getirme?

[Gorarr]

Selamlar yapmaya çalıştığım :

Exceldeki bir sütunundaki isimleri diğer sütunundaki aynı isimlerle aynı hizaya getirmem gerekiyor.

Bu esnada diğer sütunlarda aynen kalması gerekiyor. VBA kodlarla yapılabilir diye düşündüm tabi başka yöntemde olabilir. Örnek dosyamı ekledim.

Yardımlarınız için şimdiden çok çok teşekkürler....

 

[hamitcan]

Sub Sirala()
Dim a()
k = [b65536].End(3).Row
For i = 3 To [b65536].End(3).Row
    ReDim Preserve a(0 To i)
    a(i) = Cells(i, 2)
Next
    Columns(2).Clear
    For j = 1 To i - 1
        Set x = Columns(3).Find(a(j))
        If Not x Is Nothing Then
            Cells(x.Row, 2) = a(j)
        Else
            k = k + 1
            Cells(k, 2) = a(j)
            Cells(k, 2).Interior.Color = vbYellow
        End If
    Next
MsgBox "Bitti."
End Sub

 

[Gorarr]

Büyüksün hocam. çok teşekkürler....