With Sheets("All Assets").Cells
.AutoFilter
.AutoFilter Field:=1, Criteria1:="Line10"
.SpecialCells(xlCellTypeVisible).Copy
Sheets("Line10").Paste
.AutoFilter Field:=1, Criteria1:="Flowline"
.SpecialCells(xlCellTypeVisible).Copy
Sheets("Flowline").Paste
.AutoFilter Field:=1, Criteria1:="Lamination"
.SpecialCells(xlCellTypeVisible).Copy
Sheets("Lamination").Paste
.AutoFilter Field:=1, Criteria1:="Grinding"
.SpecialCells(xlCellTypeVisible).Copy
Sheets("Grinding").Paste
.AutoFilter Field:=1, Criteria1:="=*Line*"
.SpecialCells(xlCellTypeVisible).Copy
Sheets("All Production").Paste
.AutoFilter
End With