Eski veri siliniyor.

[Dbchayley]

Merhaba,
Aşağıdaki kodda bilgileri diğer veri sayfasına aktarıyor, fakat yeni bilgi girip aktar dediğimde eski bilgileri siliyor. bunu nasıl önlerim. yardımlarınız için şimdiden teşekkür ederim.
Sub aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("tumliste")
Set s2 = Sheets("veri")
ss = s1.Range("A" & Rows.Count).End(3).Row
s2.Range("A2:A" & ss).Value = s1.Range("A2:A" & ss).Value
s2.Range("B2:B" & ss).Value = s1.Range("H2:H" & ss).Value
s2.Range("D2" & ss).Value = s1.Range("D2" & ss).Value
s2.Range("E2:E" & ss).Value = s1.Range("B2:B" & ss).Value
s2.Range("J2:J" & ss).Value = s1.Range("E2:E" & ss).Value
s2.Range("K2:K" & ss).Value = s1.Range("G2:G" & ss).Value
Application.ScreenUpdating = True
MsgBox "Aktarma Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[suleyman242]

Sub aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("tumliste")
Set s2 = Sheets("veri")
ss = s1.Range("A" & Rows.Count).End(3).Row
s2s = s2.Range("A" & Rows.Count).End(3).Row + 1
s22s = s2s + ss - 2
s2.Range("A" & s2s & ":A" & s22s).Value = s1.Range("A2:A" & ss).Value
s2.Range("B" & s2s & ":B" & s22s).Value = s1.Range("H2:H" & ss).Value
s2.Range("D" & s2s & ":D" & s22s).Value = s1.Range("D2" & ss).Value
s2.Range("E" & s2s & ":E" & s22s).Value = s1.Range("B2:B" & ss).Value
s2.Range("J" & s2s & ":J" & s22s).Value = s1.Range("E2:E" & ss).Value
s2.Range("K" & s2s & ":K" & s22s).Value = s1.Range("G2:G" & ss).Value
Application.ScreenUpdating = True
MsgBox "Aktarma Tamamlandı.", vbInformation, "DeDe " & Application.UserName & "'e Başarılar diler."
End Sub

 

[Dbchayley]

çok teşekkür ederim

 

[suleyman242]

çok teşekkür ederim

Rica ederim.

 

[Dbchayley]

kaydettiği yerde aynı data var ise değiştirebilirmiyiz?

 

[suleyman242]

kaydettiği yerde aynı data var ise değiştirebilirmiyiz?

Başka code yazmamız lazım.
Bu şekilde bilemiyorum.