yenilene değer

[igultekin2000]

iyi günler;
çalışma sayfasında A1 hücresine değer girdikçe J ve L sütunlarında yeni değerler oluşuyor. Burada oluşan formüllü sayıları Q ve R sütunlarında biriktirmek istiyorum. Başka makroda kullandığım markoyu adapte edemedim. Teşekkürler.

Sub yevmiye_aktar()
On Error Resume Next
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual

Dim GK, KK As Worksheet
Set KK = Sheets("RAPOR_2")
Sheets("RAPOR_2").Select
    Range("j2:j1000,L2:L1000").Select
    Selection.Copy
    'Sheets("RAPOR_2").Select
    son_satir = KK.Range("Q65000").End(3).Row + 1
    KK.Range("Q2" & son_satir).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Range("E1").Select
   Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

End Sub