Я получаю ошибку ниже при выполнении этого кода "Точный диапазон отсутствует".
Если я установил фиксированный диапазон, то он работает плавно. Пожалуйста, помогите.
Dim lastr As Long
lastr = Sheets("Associates Covered").Range("A" & Rows.Count).End(xlUp).row
Sheets("Associates Covered").Range("A1:Q" & lastr).AdvancedFilter Action:= xlFilterCopy , CriteriaRange:=Range("A1:Q2"), CopyToRange:=Range("A10:Q10"), Unique:=False