Select' siz aktarım

[igultekin2000]

iyi akşamlar;
AKTAR çalışma sayfasındaki verileri BIRIKTIR çalışma sayfasına atarak, orada biriktiriyorum. kullandığım makro Select' li olduğu için işlemi yavaşlatıyor, bunu son dolu hücresi seç şekline çeviremedim, kullandığım makro

Sub liste_biriktir()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual

Dim GK, KK As Worksheet
Set KK = Sheets("BIRIKTIR")
Sheets("AKTAR").Select
    Range("A2:h65000").Select
    Selection.Copy
    Sheets("BIRIKTIR").Select
    son_satir = KK.Range("a65000").End(3).Row + 1
    KK.Range("a" & son_satir).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Dim s1 As Worksheet: Set s1 = Sheets("AKTAR") 'süzmeyi kaldırmak için
s1.AutoFilterMode = False

Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

teşekkürler

 

[EmrExcel16]

Merhaba , evet select yavaşlatir peki neden 65000 satiri kopyaliyorsunuz, buda yavaşlatir, verdiğiniz kodlardan ziyade , yapilmak isteneni örnek bir dosya ile sorarsaniz daha hizli kodlarla çözum alirsiniz.