Sildikten sonra sıra no hatası

[polis-53]

Merhaba arkadaşlar aşağıdaki kodda verileri siliyorum silme işleminde sorun yok fakat sıra numarası 3.satırdan başlıyor bir veri sildiğimde sıra numarasını 2. satırdan başlatıyor bunu 3. satırdan nasıl başlatabilirim.

Private Sub CommandButton3_Click()
'S İ L
If TextBox1.Text = "" Then
MsgBox "Lütfen Önce Listeden Seçim Yapınız.", vbCritical, "Dikkat !"
ListView1.SetFocus
Exit Sub
End If
Sheets("LİSTE").Select
Set S1 = Sheets("LİSTE")
Dim sat%
On Error GoTo hata
cevap = MsgBox("Silmek İstediğinizden Eminmisiniz ?", vbYesNo, "Silme Onayı")
If cevap = vbNo Then
For tem = 1 To 16
Controls("textbox" & tem) = Empty
Next
TextBox1.Enabled = True
TextBox1.SetFocus
Exit Sub
End If
Dim bak As Range
Dim syd As String
Dim Satir As Long
Set S1 = ThisWorkbook.Worksheets("LİSTE")
If cevap = vbYes Then
say = S1.Cells(65536, "B").End(3).Row
For Each bak In S1.Range("B3:B" & say)
ad = S1.Range(bak.Offset(0, 0).Address).Value
syd = S1.Range(bak.Offset(0, 1).Address).Value
' MsgBox ad & Syd
If StrConv(ad, vbUpperCase) = StrConv(TextBox1.Text, vbUpperCase) Then
If StrConv(syd, vbUpperCase) = StrConv(TextBox2.Text, vbUpperCase) Then
bak.Select
S1.Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 40).Address(False, False)).Delete Shift:=xlUp
MsgBox "Veriniz Silinmiştir.", vbInformation, "Sil"
Exit For
' Exit Sub
End If
End If
Next bak
say = S1.Cells(65536, "B").End(3).Row
For i = 1 To say - 1
Cells(i + 1, 1) = i
Next i

End If

'A&F sütun aralığını A3 hücresi baz alınarak sıralatıyoruz
S1.Range("A3:E65536").Select
Selection.Sort Key1:=S1.Range("A3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ListView1.ListItems.Clear

'Kolanlara yenilenen verileri tekrar al
say = S1.Cells(65536, "A").End(3).Row
ListView1.ListItems.Clear
For i = 1 To say
Set liste1 = Me.ListView1.ListItems.Add(, , S1.Cells(i, "A").Value)
liste1.SubItems(1) = S1.Cells(i, "B").Value
liste1.SubItems(2) = S1.Cells(i, "C").Value
liste1.SubItems(3) = S1.Cells(i, "D").Value
liste1.SubItems(4) = S1.Cells(i, "E").Value

If Left(S1.Cells(i + 1, 2), 1) = "*" Then
Me.ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlue
Me.ListView1.ListItems(i).ForeColor = vbBlue
End If

'eğer hücre başında (-) işareti var ise satırı kırmızı renklendir
If Left(S1.Cells(i + 1, 2), 1) = "-" Then
Me.ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed
Me.ListView1.ListItems(i).ForeColor = vbRed
End If

Next i
'ListViewde sayfa çizgileri
ListView1.FullRowSelect = True
ListView1.Gridlines = True

For tem = 1 To 19
Controls("textbox" & tem) = Empty
Next

TextBox1.Enabled = True
CommandButton1.Enabled = True


TextBox1.SetFocus
TextBox20.Text = ""

hata:

End Sub