Listenin en üst kısmına kişi sayısı kadar satır ekleme

[kelkitli]

Merhaba değerli dostlar,
Ekte sunduğum listede Sayfa2 de mevcut personel listesini kayıt bilgilerinin aylık olarak eklendiği Sayfa1 en üst satırına eklemek için uğraşıyorum Yardımlarınızı rica ediyorum.

 

[Selçuk1]

sn. kelkitli;

aktarma işlemi için aşağıdaki kodları kullanabilirsiniz. sanırım istediğiniz gibi oldu. ancak diğer işlemi tam olarak anlayamadım. diğer sorunuzu biraz daha açarmısınız?

aktarma işlemi ile ilgili olarak aşağıdaki kodları dener misiniz?

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
sondolusat = s2.[a65536].End(3).Row
s2.Range("A2:E" & sondolusat).Copy
s1.Select
s1.Range("A2").Insert shift:=xlDown
Application.CutCopyMode = False
s1.Range("A2").Select
End Sub

 

[kelkitli]

Teşekkür ederim Sayın Cellchuq.
Asıl istediğim buydu. Diğeri olmasa da olur.