makroyu çalışma sayfasına uyarlama

[İhsan Tank]

selam arkadaşlar aşagıdakiş kodu bu sayfaya uyarlayabilir misiniz. ek sayfalarımevcut değildir uyarlanırsa çok mutlu olurum.
arkadaşar en son satış toplamında işlem olacaktır. yanındaki belgede ise toplam sutununda olacaktır. yanına bir başka sayfa açarak yapalabilir mi_?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target = "" Then Exit Sub
Dim SonKol As Integer
Dim SonSat As Long
SonSat = Sheets("teslim edilen siparişler").[A65536].End(3).Row + 1
SonKol = [IV4].End(1).Column
Range(Cells(Target.Row, "A"), Cells(Target.Row, SonKol)).Copy _
Sheets("teslim edilen siparişler").Range("A" & SonSat)
Son:
End Sub

aynı şekilde tarihten itibaren tamamı kopyalanacak.