Son dolu olan satırın altına yapıştır

[vivident]

Merhaba

Aktarma işlemi yaptığım kodlar var
Range("A15") hücresinden itibaren yapıştırıyor. Ben kodu değiştirip A sütununda son dolu olan hücrenin altından itibaren yapıştır mantığını kurmaya çalıştım. Lakin olmuyor

Sheets("List").Range("A15").CopyFromRecordset rs yerine
Sheets("List").Cells(Rows.Count, "A").End(3).Row + 1 CopyFromRecordset rs olarak değiştirdim. Hata var diyor. Nasıl çözebilirim

Sub aktar()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
Sheets("List").Range("A15:Z" & Rows.Count).ClearContents
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RECORDSET")
conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes;imex=1"";"
rs.Open "select * from [ARIZALAR$A1:Y165536] where SAYI=" & Range("AC1").Value & ";", conn, 1, 1
Sheets("List").Range("A15").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Sheets("List").Select
MsgBox "yükleme tamamlanmıştır" & vbLf & _
    "aaaaaaa", vbOKOnly + vbInformation, Application.UserName
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[mancubus]

Sheets("List").Range("A" & Rows.Count).End(xlUp).Offset(1,0)

şeklinde deneyin.

 

[vivident]

Teşekkür ediyorum sayın mancubus