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

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