Düşey olarak veri aktarma

[BESST]

Merhaba Arkadaşlar

Ek'te bulunan dosyada bir sayfadan başka bir sayfaya veri aktarım işlemi yapmak istiyorum fakat macrolarla pek haşırneşir olamadığım için cahil kalmışım. Bana yardım edermisiniz.

sorum net olarak "data" sayfasındaki verileri "elle girilen" sayfasındaki gibi aktarım yapabilirmiyim.

 

[veyselemre]

Sub Aktar()
Set sd = Sheets("data")
Set sm = Sheets("macrolu")
sonsd = sd.[a65536].End(3).Row
sat = 1
sm.[a2:c65536].ClearContents
For x = 2 To sonsd
    For y = 2 To 4
        sat = sat + 1
        sm.Cells(sat, 1) = sd.Cells(x, 1)
        sm.Cells(sat, 2) = sd.Cells(1, y)
        sm.Cells(sat, 3) = sd.Cells(x, y)
    Next y
Next x
End Sub

 

[BESST]

eline sağlık arkadaşım çok teşekkürler