El subíndice está fuera del intervalo (Error 9)

Buenas tardes,

Tengo un problema de cual se forma un (error 9) El subíndice está fuera del intervalo en el programa VBA. Te comento el error :

Private sub Workbook_open()

Range("BASE_DE_DATOS_PRECIOS").AdvancedFilter Action:=xlFilterCopy,_

CopyToRange:=Range(" 'Criterios' !Extract"), Unique:=True

Worksheets("Criterios").Select

Range("au2").Select

Range(Selection, Selection.End(xldows)).Select

End Sub

Desde que llega el código a las negritas cursivas, se forma el (error 9)... No se a que es debido.

Saludos