Como mover automaticamente as linhas para outra planilha no excel

Question

Gostaria de mover todos os trabalhos quando eles forem marcados como "Concluídos" em uma planilha separada.

Eu escrevi o código abaixo, mas ele não está funcionando ou não parece estar em execução. Eu não usei o VB antes, então não tenho certeza do que estou fazendo.

Eu tenho a coluna de destino chamada rngTrigger e a linha de destino na nova planilha chamada 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