VBA Change Event, Move multiple rows based on drop down selection for multiple criteria

I had a project management file before that I used a changed event macro, but it was all based on each project being in 1 row. And of course this would mean that within one column there would be an abundance of data as comments were added. it made it difficyult to manage multiple projects trying to scroll through them. if is not uncommon for me to manage 12+ projects, and I wanted an more efficient way to do it. I did some searching, and found this template online that I liked, and then tweeked it to my needs. Now I could really use your help to kick it up a notch. As expected projects will be completed. I don't want to delete them, only to move the project rows (7 rows per project) to the "Completed_Projects" tab.

Headers reside on row 1 (on both tabs)
Each Project is a total of 7 rows (2-8, 9-15, 16-22, etc)
I want the trigger (if possible) to be if ALL 4 of the items for each project (within those 7 rows) to show as Complete
... For example if K3-K6 are All listed as Completed, then rows 2-8 are moved to Projects_Completed tab.
... If it is not possible to set this based on mustiple cells, I would choose, the 4th dropdown, which is K6, then rows 2-8 could be moved.
Obviously each time a project is moved to the completed_Projects tab it is placed on the next available blank row.

The code I used on my original project which works flawlessly is shown below. I imagine making modifications to the code below would be easier than attempting to start from scratch.

Option Explicit
Dim Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    If Flag = True Then Exit Sub

'' Column K is Status Column
'' Column K is where Designated "Target" appears
    If Not Intersect(Target, Range("K2:K" & LR)) Is Nothing Then

'' Complete is the "trigger status used
        If Target.Text = "Complete" Then
            LR = Sheets("Completed_Projects").Range("A" & Rows.Count).End(xlUp).Row + 1
            Target.EntireRow.Copy
            Sheets("Projects_Complete").Range("A" & LR).PasteSpecial
            Flag = True
            Target.EntireRow.Delete
        End If
    End If
    Application.CutCopyMode = False
    Flag = False
End Sub

Hi @ Webbers

About the trigger:

For example if J3-J6 are All listed as Completed, then rows 2-8 are moved to Projects_Completed tab.

Perhaps you mean K3-K6 (yellow highlighted) marked as Complete ?
If all 4 cells in column K for each project are marked as Complete...then it means the project is complete...no need to check the status in columns C,E,G,I ?

yes Vichopalcios, you are correct, I DID mean to say K3-K6 (yellow highlighted) rather than J3-J6. All Previous columns would NOT need to be verified if all 4 of these cells is listed as Complete. I have updated my post to reflect K3-K6 rather than J3-J6, sorry about the confusion.

try this:

Option Explicit
Dim Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LR As Long, Mini As Integer, Maxi As Integer
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Mini = Int(Target.Row / 7) * 7 + 2 'starting row to copy
    Maxi = Mini + 6 'ending row to copy
    If Flag = True Then Exit Sub
If Not Intersect(Target, Range("K2:K" & LR)) Is Nothing Then
        If Cells(Mini + 1, 11).Text = "Complete" _
            And Cells(Mini + 2, 11).Text = "Complete" _
            And Cells(Mini + 3, 11).Text = "Complete" _
            And Cells(Mini + 4, 11).Text = "Complete" Then
            LR = Sheets("Completed_Projects").Range("B" & Rows.Count).End(xlUp).Row + 3
            Sheets("Projects").Range("A" & Mini & ":N" & Maxi).Copy
            Sheets("Completed_Projects").Activate
            Sheets("Completed_Projects").Range("A" & LR).PasteSpecial
            Flag = True
            Sheets("Projects").Range("A" & Mini & ":N" & Maxi).Delete
        End If
    End If
    Application.CutCopyMode = False
    Flag = False
End Sub

Works great Vichopalcios. I do have one small question. On the Completed_Projects tab, my "matching" headers are already listed in row 1. When I marked a project as complete, it was moved to the Completed_Projects tab as it should, but the first completed project appeared on row 4, leaving 2 blank rows between the header and the first completed project. I then marked the second project as complete and it sghows direcly under the 1st one, so that all works perfectly. I looked at the code and I am not sure where this portion could be... since the first completed project is done once, it is certainly easy enough to delete rows 2 & 3. I guess I am trying to understand why more than anything.

The problem arises from your formating. !!
When you select, copy, move, delete ranges, and inside those ranges you have merged cells, like you have in your Project sheet, by sure, you are going to face some problems.
My advise is to avoid merging cells.( If you really need it, you can use Cell Format.....Align....Center in selection.!!)
Perhaps you noticed that I changed from A to B, and from 1 to 3 in

LR = Sheets("Completed_Projects").Range("B" & Rows.Count).End(xlUp).Row + 3

Just to test my point, change this line to "+2" instead of "+3" and run the macro.... you will expect to copy the range just one row before, but...disaster!!! it overwrites the previous project.
So I prefered to leave 2 blank rows at the beginning, and the rest will be OK.

Hey @ Webbers

To solve that problem you just need to add one single line to the code, so the first time, when LR = 4 change it to LR=2

.
.
LR = Sheets("Completed_Projects").Range("B" & Rows.Count).End(xlUp).Row + 3
If LR = 4 Then LR = 2
Sheets("Projects").Range("A" & Mini & ":N" & Maxi).Copy
.
.

I hope, this solve your thread, and thanks for the reps.

Vicho

Vicho, thanks so much! Yes, I thought of that, and tried it, and when I saw the overwrite... I was like Major oops here!!! I went back to my previous version with your original code.