Visual Basic te Taksit Sayısına göre senet bastırma kodu

Sub sayfa()
a = 0
aa = Sheets("SenetBil").Range("D10").Value
For Each senet In Worksheets
If Right(senet.Name, 5) = "Senet" Then
a = a + 1
End If
Next senet
If a = aa Then End
If a < aa Then
Do
a = a + 1
Sheets.Add
ActiveSheet.Name = a & ". Senet"
Loop Until aa = a
End If

If a > aa Then
Do
a = a - 1
Sheets(a + 1 & ". Senet").Delete
Loop Until aa = a
End If
End Sub