excelde verileri biçimi ile çekmek

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo son

If Not Intersect(Target, [Sacstok!ac4:ac65536]) Is Nothing Then

Set Aralik = Range("f2:f" & [d65536].End(2).Row)

 Set Bul = Aralik.Find(Target.Row, lookat:=xlWhole, LookIn:=xlValues)

        If Not Bul Is Nothing Then

            Adres = Bul.Address

            Do

            Target.Copy Cells(Bul.Row, Bul.Column - 2)

            Set Bul = Aralik.FindNext(Bul)

            Loop While Not Bul Is Nothing And Bul.Address <> Adres

        End If

ElseIf Not Intersect(Target, [f2:f65536]) Is Nothing Then

Range("ac" & Target).Copy Target.Offset(0, -2)

End If

son:

End Sub

yazdığım kod satırında nasıl bir hata var acaba?
sacstok isimli sayfada ac4 hücresinde yazılı olan veriyi siparisbilgileri sayfasında d2 hücresine biçimi ile aktarmaya çalışıyorum.

not: ac4'ten başlayıp ac65536 ve d2'den başlayıp d65536' ya kadar olacak hücrelere

Örnek ekleye bilirmisiniz.

dosyayı küçülterek gönderiyorum. sacstok sayfasındaki sipariş miktarları sipariş bilgileri sayfasına biçimleriyle gelsin istiyorum. söylediğim gibi tablo anlamsız gelmesin çünkü verilerin çoğunu sildim kafa karıştırmasın diye. bunu gibi 12 ayın sipariş miktarını çekmem gerekiyor.

dosyayı eklerken sorun oldu sanırım bir önceki mesajımda tekrar ekleme yaptım rar olarak

yardım etmicek mi kimse

lütfen hatayı nerede yapıyorum birisi ilgilensin