problem in running worksheet_change code

The code runs wrongfully i want that if in the target column any cell having text "rejected" than auto insert row below that with formula wherever formula is there.

Please rectify the code and send me as soon as possible..

Private Sub Worksheet_Change(ByVal Target As Range)
Const Prod_PWD = "123"
Dim i As Long

If Target.Column = 20 And Target.Row > 5 And Not Updating Then
If MsgBox("Add new row?", vbYesNo, "Change Sheet") = vbYes Then
Updating = True
ActiveSheet.Unprotect Password:=Prod_PWD

Rows(ActiveCell.Row & ":" & ActiveCell.Row).Insert
Cells(ActiveCell.Row, ActiveCell.Column) = Cells(ActiveCell.Row + 1, ActiveCell.Column)
Cells(ActiveCell.Row + 1, ActiveCell.Column) = ""
For i = 1 To 12
Cells(ActiveCell.Row, i).Formula = Cells(ActiveCell.Row - 1, i).Formula
Next i
CopyCells 17
CopyCells 19
CopyCells 25
CopyCells 26
CopyCells 27
CopyCells 28
CopyCells 29
CopyCells 30
CopyCells 32
Cells(ActiveCell.Row, 20).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Prod_PWD
Updating = False
End If
End If
End Sub

Sub CopyCells(ColNum As Long)
Cells(ActiveCell.Row - 1, ColNum).Select
Selection.Copy
Cells(ActiveCell.Row + 1, ColNum).Select
ActiveSheet.Paste
End Sub

hello patel45
yah my code does not search "rejected" i know that but i want that if in target.column 20(i.e column T) if "rejected" will be entered then a row below that should be inserted below that....

so please rectify the same as mentioned above...
Thanks Patel in Advance

see in column T there is dropdown for "accepted and rejected" . i want that if anyone select from dropdown "rejected" then an automatic row should be inserted below that with same formula..in my sheet i have written vba for auto row insert but i want that if in column T "rejected" is selected from dropdown the auto row insert code should run else it should not run...

hello patel please help me out of this its very necessary

thank u very much patel45
it works