Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("E2:E40")) Is Nothing Then Exit Sub
If Target.Value = "Call Completed" Then
r = Cells(Rows.Count, "E").End(xlUp).Row + 1
Application.EnableEvents = False
Rows(Target.Row).Copy Cells(r, "A")
Rows(Target.Row).Delete
Application.EnableEvents = True
End If
End Sub