Sub AKTAR()

    Dim son As Long
    Dim syfKayitlar As Worksheet
    Set syfKayitlar = ThisWorkbook.Sheets("KAYITLAR")
    son = syfKayitlar.Range("A" & Rows.Count).End(3).Row
    If son = 2 Then
        MsgBox "Aktarilacak veri yok...", vbCritical, "Hata"
        Exit Sub
    End If
    syfKayitlar.Range("A3:AK" & son).Copy
    Sheets("GENEL").Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Aktarma tamamlandi...", vbInformation, "Aktarma"
    Set syfKayitlar = Nothing
End Sub