2 sayfadaki verileri 1. Sayfada son hücreye yapıştıırmak

[Hakngnc]

2. Sayfada A ile L hücreleri arasındaki verileri kopyalayıp 1.sayfada A L hücresindeki boş olan son satıra yapıştırmak istiyorum.
Makro kaydet özelliğini kullandığım için ilk seferde doğru, işlemi tekrarladığımda hücre seçtiğim için aynı hücreye kopyalamasına neden oluyor? Yardımlarınızı rica ederim. İyi günler diliyorum

 

[Hakngnc]

    Set s1 = ThisWorkbook.Worksheets("LİSTE")
    Set s2 = ThisWorkbook.Worksheets("Son Data")
    sonsatir = s1.Range("A65536").End(xlUp).Row + 1
    s2.Range("$A$1:$N$5000").AutoFilter Field:=7, Criteria1:="#YOK"
    Range("$A$1:$N$5000").Copy
    sonsatır.Paste
    End Sub

Böyle bir makro yazdım ama beceremedim.Nesne ile ilgili hata alıyorum ben yardımcı olabilecek var mı?

 

[Orion1]

İlgili satırları aşağıdakilerle değiştirin.

s2.Range("$A$1:$N$5000").CurrentRegion.Copy
s1.Range("A" & sonsatir).PasteSpecial

 

[Hakngnc]

Teşekkür ederim. Elinize sağlık