Moving rows into a new worksheet if colour or cell = a specified colour or term

Try this on for size:

Option Explicit

Sub TransferRows()
'JBeaucaire (7/13/2009)
Dim LR As Long, LC As Long, NR As Long, i As Long
    
    If Not ActiveSheet.Name Like "Q*" Then
        MsgBox "Please activate select correct data sheet before running macro."
        Exit Sub
    End If

LR = Range("A" & Rows.Count).End(xlUp).Row

    For i = LR To 4 Step -1
        Select Case LCase(Cells(i, "P"))
            Case "won"
                If Cells(i, "P").Interior.ColorIndex = 10 Then
                    NR = Sheets("Won").Range("A" & Rows.Count).End(xlUp).Row + 1
                    Rows(i).Copy Sheets("Won").Range("A" & NR)
                    Rows(i).Delete (xlShiftUp)
                End If
            Case "lost", "superseded"
                If Cells(i, "P").Interior.ColorIndex = 3 Then
                    NR = Sheets("Lost").Range("A" & Rows.Count).End(xlUp).Row + 1
                    Rows(i).Copy Sheets("Lost").Range("A" & NR)
                    Rows(i).Delete (xlShiftUp)
                End If
        End Select
    Next i
End Sub

Also, for some reason you had separate LISTS active in each column of your Q1 sheet, and that should really be just ONE big list so the same # of rows is active all the time, yes? Here's the data back with one LIST instead of 15.

Also, changed the Rolling Total formula to simply sum the whole column.
===========

How to add the macro to your sheet:

1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save your sheet

The macro is installed and ready to use. Press Alt-F8 and select it from the macro list.

The row does not seem to move if “won” but not green.* I would like the row to move if it is green AND/OR marked as “won”.
*
The row does not seem to move if “lost” or “superseded” but not red.* I would like the row to move if it is red AND/OR marked as “lost” or “superseded”
*
Can I also add rules for entry into particular columns:
*
I would like excel to return “invalid entry” if in the CONTACT NUMBER Column the phone number format is not entered with a country code i.e. “+44123456”
*
Similarly with the MARGIN Column, this figure should trigger a warning “LOW MARGIN ALERT” if under 40%.
*
The PROBABILITY Column should only return figures of 25%, 50%, 75% or 100%.
*
CALL TO ACTION Column, MUST be completed.
*
Is it then possible to automatically fill in the table on worksheet “09-10 Total”? I am looking for total number of valid and quote wins quotes within the month into row 2, in this example it would return 6 valid and 2 won TOTAL of 8 for July.
*
For rows 3 and 4 this would return the values from column “J” or just the rolling total from the current month for row “4”.**
And the carried fwd value from column “J” or just the rolling total for row “3”.
*
The estimate and intake figure will be updated manually.
*
One other snag – is it possible to ensure that all CELLS, ROWS and COLUMNS remain a consistent size throughout the document?
*