Döngüde 2 sabit değer ve 1 koşullu değişken

[honestman]

Merhaba,

A ve C sütunlarında kişi isimleri var. A sütunundaki kişiler ana liste olup C sütunundaki kişiler de sabit kalmak koşuluyla, belli döngü kapsamında A sütunundaki kişileri D ve E sütununa B deki dosya sayısı kadar C,D,E deki isimler farklı olacak şekilde dağıtıyorum.
C veD sütunundaki veriler de sabit kalmak şartıyla sadece E sütununa benzersiz isim getirmek istiyorum. Teşekkürler.

İsteğim

Sub test()

Application.ScreenUpdating = False
    [D2:e65536].ClearContents
    kisiler = WorksheetFunction.Transpose((Range("A2:A" & [a65536].End(3).Row).Value))
    dosyaSay = [B65536].End(3).Row
    sut = 3
    sira = 1
    For sut = 4 To 5
        For i = 2 To dosyaSay
basla:
            If sira = UBound(kisiler) + 1 Then sira = 1

            Cells(i, sut) = kisiler(sira)
            If sut = 4 Then
                If Cells(i, sut) = Cells(i, sut - 1) Then
                    sira = sira + 1
                    GoTo basla
                End If
            End If
            If sut = 5 Then
                If Cells(i, sut) = Cells(i, sut - 1) Or Cells(i, sut) = Cells(i, sut - 2) Then
                    sira = sira + 1
                    GoTo basla
                End If
            End If
            sira = sira + 1
        Next i

    Next sut