sayfalar arası sıralı aktarma makrosu

[taseraydin]

değerli arkadaşlar
(Sayfa1)de (A8:E8) aralığındaki tüm satırları
(Sayfa2)de (A8:E8) aralığındaki tüm satırlara her seferin enson satırdan itibaren sıralı keserek yapıştırması

örnek bir dosya gönderiyorum

 

[Necdet]

İyi akşamlar,

Aşağıdaki kodları dener misiniz? Tam olarak anlamış mıyım?

Option Explicit
Sub Aktar()
Dim i As Long, j As Long
Dim st As Worksheet, sa As Worksheet
Set st = Sheets("tahakkuklistesi")
Set sa = Sheets("arşiv")
i = st.[A65536].End(3).Row
j = sa.[A65536].End(3).Row + 1
If i > 7 Then
    st.Range("A8:F" & i).Copy sa.Range("A" & j)
    st.Range("A8:F" & i).ClearContents
End If
End Sub

 

[taseraydin]

Yardımlarınız için çok teşekür ederim.
İşimi gördü
elinize sağlık