Soru Oluşan yeni Şablon sayfasına mükerrer veri aktarılmasını engelleme

[sirkülasyon]

Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Dim STR As Long, HT As Long, STR1 As Long
Set S1 = Sheets("KAYIT")
Set S2 = Sheets("Şablon")
S1.Range("Z:Z").Clear
islem = "Yok"
For sayfa = 1 To Sheets.Count
    If Sheets(sayfa).Name = S1.[C3].Text Then
        islem = "Var"
        Set S3 = Sheets(sayfa)
    End If
Next
    S3.Range("B" & STR) = S1.Range("B9")
    S3.Range("C" & STR) = Format(S1.Range("C9"), "dd.mm.yyyy")
    S3.Range("D" & STR) = Format(S1.Range("D9"), "#,##0") * 1
    S3.Range("E" & STR) = S1.Range("E9")
    S3.Range("F" & STR1) = Format(S1.Range("B11"), "dd.mm.yyyy")
    S3.Range("G" & STR1) = S1.Range("C11")
    S3.Range("H" & STR1) = Format(S1.Range("D11"), "dd.mm.yyyy")
    S3.Range("I" & STR1) = S1.Range("E11")
    S3.Range("J" & STR1) = S1.Range("F11")
    Exit Sub
Else
    S2.Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = S1.Range("C3").Text
    Set S3 = Sheets(S1.Range("C3").Text)
    STR = S3.Range("B" & Rows.Count).End(xlUp).Row + 1
    STR1 = S3.Range("F" & Rows.Count).End(xlUp).Row + 1
    If STR < 5 Then STR = 5
      S3.Range("B" & STR) = S1.Range("B9")
    S3.Range("C" & STR) = Format(S1.Range("C9"), "dd.mm.yyyy")
    S3.Range("D" & STR) = Format(S1.Range("D9"), "#,##0") * 1
    S3.Range("E" & STR) = S1.Range("E9")
    S3.Range("F" & STR1) = Format(S1.Range("B11"), "dd.mm.yyyy")
    S3.Range("G" & STR1) = S1.Range("C11")
    S3.Range("H" & STR1) = Format(S1.Range("D11"), "dd.mm.yyyy")
    S3.Range("I" & STR1) = S1.Range("E11")
    S3.Range("J" & STR1) = S1.Range("F11")
End If

Kayıt sayfasında C3 hücresinde ki rakama göre açılan Şablon Sayfasına Kayıt sayfasından veri aktarılırken
Kayıt Sayfasında ki B9 (Ay Adı Eylül, Ekim gibi) ve C9 (Tarih 29.10.2022 gibi) hücresinde ki değerler açılan yeni sayfaya tekrar aktarıldığı taktirde mükerrer uyarısı vermesini nasıl sağlayabilirim?