Copy from one workbook to another

Hi Guys

Need a bit of help please.

I have put the code below together to copy all the rows from column A that meets the criteria in range ZZ1 to named range ROUTE1 in another workbook, but for some reason it won't work and i cannot figure it out.

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Dim Rng As Range

Set Rng = Range([A1], Range("A" & Rows.Count).End(xlUp))

On Error Resume Next
    With Rng
        .AutoFilter , field:=1, Criteria1:=Range("ZZ1").Value
        .SpecialCells(xlCellTypeVisible).EntireRow.Select
        Workbooks("Master.xlsm").Activate
Selection.Copy
.AutoFilter
ActiveSheet.Range("ROUTE1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
    End With
On Error GoTo 0

Application.EnableEvents = True

Would appreciate if the code could also be adapted a bit to copy only from column A to O instead of the entire row.

Maybe:

Sub ANDREAAS()
Dim Rng As Range, rng2 As Range

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Set rng2 = Workbooks("Master.xlsm").Sheets("Sheet1").Range("ROUTE1")

Set Rng = Range("A1:O" & Range("A" & Rows.Count).End(xlUp).row)

    With Rng
        .AutoFilter 1, Range("ZZ1").Value
        .SpecialCells(12).Copy
        Application.Goto rng2
        rng2.PasteSpecial xlPasteValues
        .AutoFilter
    End With
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub