Şartlı Sayfa Ekleme ve Silme

[askm]

Sub ekle()
Dim ad As String
Dim s1, s2, s3 As Worksheet
Dim sonhucre As Integer
Dim Sigortali_Sayisi As Integer
Dim Sayfa_Kontrol As Integer
Sayfa_Kontrol = 10
Set s1 = Sheets("SİGORTALI KAYIT")
Set s2 = Sheets("ŞABLON")
Set s3 = Sheets("SİGORTALI SORGU")


'For x = 1 To 15
's3.Range("b1") = x
ad = s3.Range("b1")

For i = 1 To Worksheets.Count
If CStr(Sheets(i).Name) = CStr(ad) Then
bulundu = True
End If
Next
If bulundu = False Then
Sheets.Add , Sheets(Sheets.Count)
ActiveSheet.Name = ad
s2.Cells.Copy Sheets(CStr(ad)).Range("a1")
s1.Activate

sonhucre = s1.Range("A65000").End(xlUp).Row
If sonhucre >= Sayfa_Kontrol Then
Application.DisplayAlerts = False
a = s1.Range("a1")
Sheets(a).Delete

s1.Rows(1).Delete
End If
sonhucre = s1.Range("A65000").End(xlUp).Row + 1
s1.Cells(sonhucre, 1) = s3.[b1]
s3.Activate
[b1].Select
End If
'Next x
End Sub