Soru Mükerer aktarmasını engelleme

[sirkülasyon]

sonhucre = s1.Range("B65536").End(xlUp).Row
For i = 8 To sonhucre
son = s2.Cells(Rows.Count, "B").End(3).Row + 1
    s2.Cells(son, 4) = s1.Cells(i, 4)
    s2.Cells(son, 3) = s1.Cells(i, 3)
    s2.Cells(son, 5) = s1.Cells(i, 6)
    s2.Cells(son, 6) = s1.Cells(i, 12)
    s2.Cells(son, 2) = s1.Cells(i, 2)
Next i

ustam kod ile aktardığım zaman Sayfa2 ' de aynı isim var ise aktarmaması için nasıl bir değişiklik yapabilirim?