fotoğrafları diğer sayfalara gönderme

[ismailozkan4224]

değerli arkadaşlar bilgisayardan resimleri "RESİMLER" sayfasına atabiliyorum. ancak istediğim aktif hücreye eklediğim resmi hemen 13 satır altında bulunan sayının sayfasına da aynı resmi eklemesi. yani aktif hücreye eklenen resim ilgili sayfanın ("U38") hücresine de eklenecek. yardımlarınız için şimdiden teşekkür ederim.
kullandığım kod aşağıdadır.
Sub RESIMYUKLE()
Application.ScreenUpdating = False
Dim xresimsec As String
Dim resimyol As String
Dim Adres As Range
x = ActiveCell.Row
y = ActiveCell.Column
Range("CA8") = x 'SATIR
Range("CA10") = y 'SÜTUN

'Range("B8").Select
Set Adres = Selection
xresimsec = Application.GetOpenFilename()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert(xresimsec)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = (Adres.Height - 8)
.Width = (Adres.Width - 8)
.Top = (Adres.Top + 4)
.Left = (Adres.Left + 4)
.Placement = (xlMoveAndSize)
End With
resimyol = Replace(xresimsec, "\Kucuk\", "\")
ActiveSheet.Hyperlinks.Add Anchor:=pic.ShapeRange.Item(1), Address:=resimyol
t1 = Cells(8, 79) + 13
k = Cells(10, 79)
t = Cells(t1, k)
Sheets(t).Cells(21, 38).Hyperlinks.Add Anchor:=pic.ShapeRange.Item(1), Address:=resimyol
Application.ScreenUpdating = True
End Sub