Thank you! Much more efficient than my code. And it works!
But how can I get borders around each cell?
Also, I would like to name each list (TEMP_FILTER & CR_FILTER) so I can refer to them in formulas.

Quote Originally Posted by mancubus View Post
?

Sub vbax_54965_Copy_Matching_Cells()
    
    With Worksheets("Oracle Item Numbers")
        .AutoFilterMode = False
        .Cells(1).AutoFilter Field:=1, Criteria1:="TEMP*"
        .UsedRange.Columns(1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
        Worksheets("Templates & Common Routings").Cells(2, 10).PasteSpecial
        .Cells(1).AutoFilter Field:=1, Criteria1:="CR-*"
        .UsedRange.Columns(1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
        Worksheets("Templates & Common Routings").Cells(2, 11).PasteSpecial
        .AutoFilterMode = False
    End With
    
End Sub