Advanced Filtering -Runtime Error 1004. Cannot figure out why will not work.

[thelisa]

I am trying to sort Column O from sheet "DM" by the user entered criteria in Column A from Sheet "Project".
O would look like:
A254.920
B692.R3U
GN99.900

A would look like:
*A254*
*G*

The user can enter as many criteria in A as they would like.

Sub Macro8()
Dim numrows As Long
numrows = Worksheets("Project").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DM").Select
Columns("O:O").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Project").Range("A1", Range("A" & numrows)), Unique:=False
End Sub

I get "Run-time error 1004: Application-Defined or Object-Defined error"

I do not see where I went wrong here. Can anybody give me some help?