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