Как автоматически перемещать строки на другой лист в Excel

Question

Я хотел бы переместить все задания, когда они помечены как «Завершенные», на отдельном листе.

Я написал код ниже, но он не работает или не работает. Я не использовал VB раньше, поэтому не уверен в том, что я делаю.

У меня есть целевой столбец с именем rngTrigger и строка назначения в новом рабочем листе с именем rngDest .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDest As Range
Set rngDest = Worksheets("Fin_Y16_Q4").Range("rngDest")

' Limit the trap area to range of cells in which completed dates are entered as defined above
If Not Intersect(Target, Range("rngTrigger")) Is Nothing Then

' Only trigger if the value entred is Completed
     If UCase(Target) = "COMPLETED" Then
'Ensure subsequent deletion of 'moved' row does NOT cause the Change Event to run again and get itself in a loop!
        Application.EnableEvents = False
        Target.EntireRow.Select
        Selection.Cut
        rngDest.Insert Shift:=xlDown
        Selection.Delete
' Reset EnableEvents
        Application.EnableEvents = True
    End If
End If

End Sub