|I suggest that you try this code in a backup copy of your workbook. Since it deletes rows, you may not want to mess up your original sheet in case it gets saved.|
You might also want to reduce the size of the data. There is no need to test the code on 1400 rows.
Your source sheet is named "Main"
Your destination sheet is named "Blue Items"
You have data in Column A of every row (Column A is used to determine the length of your data)
All of this can be edited to fit your exact situation.
'Determine last Row with data on Main:
lastRw = Sheets("Main").Range("A" & Rows.Count).End(xlUp).Row
'Loop through Main Column Q in reverse order
For srcRw = lastRw To 1 Step -1
'Check for B in Main Column Q
If Sheets("Main").Range("Q" & srcRw) = "B" Then
'Determine Paste location on Blue Items
nxtRw = Sheets("Blue Items").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Main").Range("Q" & srcRw).EntireRow.Copy _
Sheets("Blue Items").Range("A" & nxtRw) '.PasteSpecial Paste:=xlPasteAll
'Delete orginal Row on Main
Sheets("Main").Range("Q" & srcRw).EntireRow.Delete
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.