Satır ekleme ve üstteki veriyi yazmak

[nane]

Merhabalar,

Sayfa1 de A4 ile K1110 hücreleri tarih, açıklama, vs... tutar şeklinde banka ekstresi olarak veri ile dolu.
Makro ile her satırın altına boş satır eklemeli ve eklenmiş olan satıra bir üstteki verinin aynısını kopyalamalı acaba makro ile bir butona bağlı olarak yapabilirmiyiz. Tabi ki bunu sayfa2 ye yapmak istiyorum gerçek olan verileri Sayfa1 deki bilgiyi harab etmeyelim

A4 ile K4 e kaladar olan hücrelerdeki verinin aynısını A5 ile K5 e yazacak

Sayfa2 de dolu hücre satırı 2217 ye kadar olacak böylelikle

Yardımlarınızı bekliyorum
Teşekkürler
Yb®

 

[Murat OSMA]

Örnek dosyanızı ekleyiniz...

 

[nane]

Merhabalar,
Örnek dosya ektedir. Sarı hücrelere yapmak istediğim şeki ilave ettim.
Yardımlarınız için teşekkürler

Yb®

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Integer
    For i = Range("A65536").End(3).Row To 5 Step -1
        Rows(i).Insert
    Next i
    i = Empty
End Sub

 

[nane]

Murat bey,
Veriler sayfa1 de oysa sayfa2 ye aynı verileri aktarsın ve bir alt satıra da mükerrer olarak kayıt etsin istiyorum.
Kod aynı sayfada sadece satır ekliyor. Bir üst satırdaki veriyi kopyalamıyor.
Tşk.
Yb®