Bul kaydet kodunda değişiklik

[oerbas]

Selamlarımla;
Aşağıdaki kod Dış görev sayfasında sicil numarasına göre bulduğu personelin olduğu satırda kodda belirtilen hücrelere Textboxlardaki verileri aktarıyor.
Benim istediğim bu şekilde yazılmış bir başka kod sicile gire bulduğu personelin olduğu satıra değilde bir alt satıra kayıt yapan kod acaba bu mümkünmüdür.


Private Sub DIŞGÖREV_Click()
Set s1 = Sheets("Dış görev")
noA = WorksheetFunction.CountA(s1.Range("a:a"))
For i = 1 To noA
If s1.Cells(i, "a") = Val(txtsira) Then
's1.Cells(i, "c") = adı.Text

s1.Cells(i, "b") = sicil.Text

s1.Cells(i, "d") = dış_görev_biri.Text
s1.Cells(i, "e") = dış_görev_ikisi.Text
s1.Cells(i, "f") = dış_görev_üçü.Text
s1.Cells(i, "g") = dış_görev_dördü.Text
s1.Cells(i, "h") = dış_görev_beşi.Text
s1.Cells(i, "ı") = dış_görev_altısı.Text
s1.Cells(i, "j") = dış_görev_yedisi.Text
s1.Cells(i, "k") = dış_görev_sekizi.Text
s1.Cells(i, "l") = dış_görev_dokuzu.Text
s1.Cells(i, "m") = dış_görev_onu.Text
s1.Cells(i, "n") = dış_görev_onbiri.Text
s1.Cells(i, "o") = dış_görev_onikisi.Text
s1.Cells(i, "p") = dış_görev_onüçü.Text
s1.Cells(i, "q") = dış_görev_ondördü.Text
s1.Cells(i, "r") = dış_görev_onbeşi.Text
s1.Cells(i, "s") = dış_görev_onaltısı.Text
s1.Cells(i, "t") = dış_görev_onyedisi.Text
s1.Cells(i, "u") = dış_görev_onsekizi.Text
s1.Cells(i, "v") = dış_görev_ondokuzu.Text
s1.Cells(i, "w") = dış_görev_yirmisi.Text
s1.Cells(i, "x") = dış_görev_yirmibiri.Text
s1.Cells(i, "y") = dış_görev_yirmiikisi.Text
s1.Cells(i, "z") = dış_görev_yirmiüçü.Text
s1.Cells(i, "aa") = dış_görev_yirmidördü.Text
s1.Cells(i, "ab") = dış_görev_yirmibeşi.Text
s1.Cells(i, "ac") = dış_görev_yirmialtısı.Text
s1.Cells(i, "ad") = dış_görev_yirmiyedisi.Text
s1.Cells(i, "ae") = dış_görev_yirmisekizi.Text
s1.Cells(i, "af") = dış_görev_yirmidokuzu.Text
s1.Cells(i, "ag") = dış_görev_otuzu.Text
s1.Cells(i, "ah") = dış_görev_otuzbiri.Text
s1.Cells(i, "aı") = Textdişgörev.Text
MsgBox "Kayıtlar Fazla Mesai ve Dış Görev Sayfasına Eklendi"
HESAPLA_Click


Exit Sub
End If
Next i
MsgBox "Aradığınız isimde bir kayıt bulunamadı", vbCritical, "KAYIT"
End Sub