İki dosya arası veri akışı

[GreenMaster]

Merhabalar

Şöyle bir sorunum var toplam 12 tane excel dosyam var.Dosyalardan bir tanesi kod arşivi diğerlerinin kod arşivinden kodları otomatik çekmesini istiyorum.Yusuf beyin daha önceden bana yardımcı olduğu kodda biraz oynama yaptım ama beceremedim kod aşşağıdadır.Yardımlarınız için teşekkürler

Sub Kod()
Application.ScreenUpdating = False
Set ana = ThisWorkbook.Sheets("Sayfa1") 'Hangi sayfaya alınacak?
Set başka = Workbooks.Open("C:\Users\yusuf.bektas\Desktop\deneme\MKGT_KABiN_R1.xlsx") 'Alınacak dosyanın uzantısı ne?

uyarı = MsgBox("Eski veriler silinsin mi?", vbYesNo)
If uyarı = vbYes Then
son = WorksheetFunction.Max(3, Sheets("Sayfa1").Cells(Rows.Count, "AB").End(3).Row)
Sheets("Sayfa1").Range("A3:AB" & son).ClearContents
End If
For i = 5 To Sheets("MKGT_KOD").Cells(Rows.Count, "AB").End(3).Row
If Sheets("MKGT_KOD").Cells(i, "AB") >= 1 Then
yeni = WorksheetFunction.Max(3, Sheets("Sayfa1").Cells(Rows.Count, "AB").End(3).Row + 1)
Sheets("MKGT_KOD").Range("A" & i & ":AB" & i).Copy Sheets("Sayfa1").Range("A" & yeni)
End If
Next
Application.ScreenUpdating = True
End Sub