worksheet change özelliği

[nihatra]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If UCase(Target.Value) = "S" Then
Application.EnableEvents = False
For i = 0 To 5
Target.Offset(i, 0) = Target.Value
Next
Application.EnableEvents = True
End If
If Intersect(Target, [h11:N750]) Is Nothing Then Exit Sub
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "T").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "T").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "V").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "V").Value = ""
End Sub
bu kod ile işlem yapıyorum.sorum şu.
1.soru : bu verileri sayfa 2 ye nasıl aktarırım.
2.soru :a1-a2-a3-a4-a5 teki veriler 1 kişiye ait.yani her kişinin bilgileri 5 satırda örnek ; a10-a11-a12-a13-a14-a15 teki satırları değil sadece verileri silersem.a16-a17-a18-a19-a20-a21 deki verileri nasıl a10-a11-a12-a13-a14- a15' e kaydırabilirim.yani satır silmeden verileri bir üste nasıl kaydırabilirim. yardımlarınıza teşekkür eder saygılar sunarım.