Macro Filteren en verplaatsen naar ander blad

[raoulduivestein]

Ik probeer met onderstaande code in VBA gegevens te kopieren naar het blad Outliers, echter krijg ik een foutmelding in

Sheets("Outliers").

Kan iemand mij vertellen wat ik verkeerd doe.
Alvast bedankt voor het meedenken! :d

Sub outliers()
'
' outliers Macro
'

'
    Sheets("Week40").Range("$A$1:$AE$83").AutoFilter Field:=5, Criteria1:= _
        ">00:06:30", Operator:=xlAnd
    Range("A1:G175").Select
    Selection.Copy
    Sheets("Outliers").Paste
End Sub

 

[Warme bakkertje]

Sub outliers()
'
' outliers Macro
'

'
    With Sheets("Week40")
        .Range("$A$1:$AE$83").AutoFilter Field:=5, Criteria1:= _
        ">00:06:30", Operator:=xlAnd
        .AutoFilter.Range.SpecialCells(12).Copy
        Sheets("Outliers").Range("A1").PasteSpecial xlValues
        .AutoFilterMode = False
    End With
    Application.CutCopyMode = False
End Sub

 

[snb]

Sub M_snb()
    With Sheets("Week40").Range("$A$1:$AE$83")
        .AutoFilter 5, ">00:06:30"
        .Copy  Sheets("Outliers").Range("A1")
        .AutoFilter
    End With
End Sub