Try:
Sub A_FilterMoveCOLORSs()
Application.ScreenUpdating = False
Dim lastrow As Long
lastrow = Sheets("qry_Export").Range("A" & Rows.Count).End(xlUp).Row
Sheets("qry_Export").Range("A1:J" & lastrow).AutoFilter Field:=10, Criteria1:="BLUE"
Sheets("qry_Export").Range("A2:J" & lastrow).SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("BLUEID").Cells(Sheets("BLUEID").Rows.Count, "A").End(xlUp).Offset(1, 0)
If Sheets("qry_Export").FilterMode Then Sheets("qry_Export").ShowAllData
Sheets("qry_Export").Range("A1:J" & lastrow).AutoFilter Field:=10, Criteria1:="RED"
Sheets("qry_Export").Range("A2:J" & lastrow).SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("REDID").Cells(Sheets("REDID").Rows.Count, "A").End(xlUp).Offset(1, 0)
If Sheets("qry_Export").FilterMode Then Sheets("qry_Export").ShowAllData
Application.ScreenUpdating = True
End Sub
Bookmarks