Compiile error: Expected: expression

Dear Friends need your help

I am getting a:
Compiile error: Expected: expression

for the following macro:

Sub Macro2()
'
' Macro2 Macro
'

'
Range("G3:J17").AdvancedFilter
Action:=xlFilterCopy,
'CriteriaRange:=Range( _
'"D1:D3"),
Range("A1").SelectRange("A1").Select
Range(Selection, Selection.End(xlDown)).Select
CopyToRange:=Range("L3"), Unique:=False
End Sub

The error is being highlighted on the following position:
:=x

My second question is:
Can one use "End Down" when the range is not known for
List range
and for
Criteria range

to do a Advance filter by changing the vba code manually ??

Look forward for your help and thanks in advance for the same.

Kind regards
Roy

Hello TMS

The original, see below:

Sub Macro2()
'
' Macro5 Macro
'

'
Range("G3:J17").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D1:D3"), CopyToRange:=Range("L3"), Unique:=False
End Sub


Regards, Roy

Hello TMS

Sorry for the noncompliance. I hope I have done it correct now, see below:

Please Login or Register  to view this content.

Thanks, Roy

Hello TMS

Once again thanks. I have updated as suggested, see below:

Please Login or Register  to view this content.

What I am trying to is extract data from a database spreadsheet which match the given criteria though a macro.
As the CriteriaRange can vary e.g it could be once D1:D3 and in the next query D1:D100, I used the Advance Filter
in my macro. Next I edited the stored marco by inserting CriteriaRange the End Down functionality, so that it would
highlight all the cells belonging to the criteria range every time the number of cells involve change.

Kind regards
Tanoy

Thanks for your help TMS.
Your solution works fine.

Regards, Roy