Başka bir kitaba veri aktarma

[northcyprus]

Selamlar Sayın hocalarım, arkadaşlarım...
iki tane çalışma kitabım var KASA DENEME ve MUTFAK isimli, benim yapmak istediğim kasa deneme kitabındaki PRİNT sayfasının A150 ye kadar olan bölümünü kopyalayıp AÇIK OLAN E:\MUTFAK TAKİP\MUTFAK.xls kitabının içindeki EKLENENLER sayfasının A1 hücresi eğer boşsa yapıştır dolu ise boş olan bir satıra yapıştır ve KASA DENEME kitabının A11 hücresini seç demek istedim fakat bi türlü yapamadım nerede yanlış yaptığımı bulamadım
bana yardım edermisiniz.

yardımlarınızı bekliyorum Teşekkürler...






Sub VERİAKTAR()

Dim sat As Long

Sheets("PRİNT").Select
Range("A150").Select
Selection.Copy
If Workbooks.Open(ThisWorkbook.Path & "E:\MUTFAK TAKİP\MUTFAK.xls").ReadOnly = False Then

End If
sat = Workbooks("MUTFAK.xls").Sheets("EKLENENLER").Cells(Rows.Count, "A1").End(xlUp).Row + 1

Workbooks("MUTFAK.xls").Sheets("EKLENENLER").Range("A1" & sat).Value = _
ActiveSheet.Paste

Windows("KASA DENEME.xls").Activate
Range("A11").Select


MsgBox "Veriler Aktarıldı."




End Sub