Moving Entire Row based on Cell marked "Completed"

[MoonPrincess]

I am new to this and trying to get each row to automatically get copied to my second sheet "Completed", then deleted off my main sheet...
So - when I select "completed" from the dropdown in Column "N", that entire corresponding row essentially moves over to the second sheet labeled "Completed".
Beginning at row 2.
Macros are enabled on my workbook, and I entered the code by right click sheet>View Code>Select sheet in VBAproject

I have been trying to get this to work all day but I think there is something wrong with my code. I appreciate anyone who has suggestions, or can find the issue in my code/process

I added screenshots of my code and workbook for reference.

 

[vcoolio]

Hello MoonPrincess,

Try the code amended as follows:-

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Columns(14)) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Value = vbNullString Then Exit Sub
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
         
    If Target.Value = "Completed" Then
    Target.EntireRow.Copy Sheets("Completed").Range("A" & Rows.Count).End(3)(2)
    Target.EntireRow.Delete
    End If
 
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.

P.S. The code needs to be placed into the sheet module of your main data input sheet "Complaints FY2023".
BTW, Column N is column number 14 not 11.

 

[MoonPrincess]

Thank you so so much your solution worked perfectly!

 

[vcoolio]

You're welcome MoonPrincess. I'm glad to have been able to assist and thanks for the feed back.

Cheerio,
vcoolio.