Kod:
Sub AktarVeSil()
secim = ActiveCell.Value & ActiveCell.Offset(0, 1).Value 'Aktif hücrenin sağındakini seçer.
ActiveCell.Rows("1:1").EntireRow.Select
If MsgBox(secim & " Aktarıldıktan sonra Silinecektir. Onaylıyormusunuz?", vbOKCancel) = vbOK Then
Selection.Cut
Sheets("MemSil").Select
DEG = Cells(65536, "C").End(3).Row + 1
Cells(DEG, "C").Select
ActiveCell.Rows("1:1").EntireRow.Select
ActiveSheet.Paste
Sheets("Memur").Select
Selection.Delete Shift:=xlUp
Sheets("MemSil").Select
MsgBox "Aktarım işlemi başarılı bir şekilde gerçekleşmiştir..."
Else
MsgBox "Silme işlemi iptal edilmiştir"
End If
End Sub