VBA - Range of object _ Global failed

[_Br_10]

Hi everyone!
Yesterday i run this code and was all ok. But today i don't know why appear this error 1004.

The error is in the line of the range.

The code is:

Worksheets("Encomendas_em_aberto").Range("A2:I" & lastRowZabr).ClearContents
    Worksheets("Zplan_producao").Select
    ActiveSheet.ListObjects("Z_Plan_Oficial").Range.AutoFilter Field:=2, _
        Criteria1:="=ABER"
    Range("A:A,B:B,E:E,F:F,G:G,I:I,J:J,K:K,R:R").Select  ----> ERROR
    Selection.Copy
    Sheets("Encomendas_em_aberto").Select
    Range("A1").Select
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False

How resolve this?