Vba veya makro ile otomatik veri çekme

[mias2627]

Kolay gelsin. bana yardımcı olursanız sevinirim.
"2017 TÜM EXCEL" inde "VERİ" sayfasındaki A1:BF50000 arasındaki verileri sadece değerler ve biçimlendirme şeklinde "AvansTakip 2017" dosyası "VERİ" sayfasında I1:BN50000 arasına otomatik getirtmek istiyorum. nasıl yapabilirim?

 

[Beyribey]

Sub KOPYA()

    Range("A1:BF5000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows( _
        "AvansTakip 2017.xlsx"). _
        Activate
    Sheets("VERİ").Range("I1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
End Sub