.Range("A1:AS" & .[A65000].End(xlUp).Row).Name = "base"
[COLOR="Red"]Range("$C$2").FormulaR1C1 = _
"=AND(lecture_all_simple!RC[36]>=extraction!R1C2,lecture_all_simple!RC[36]<=extraction!R2C2)"[/COLOR]
.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:C2"), CopyToRange:=Range("A4:J4"), Unique:=False