Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 20 And Target.Row > 5 Then
  If Target = "Rejected" Then
     Target.EntireRow.Copy
     Target.Offset(1).EntireRow.Insert
     Application.CutCopyMode = False
     
  End If
End If
End Sub