Fejl i vba kode

Hej

Jeg har brug for lidt hjælp her med vba kode.

Sub Makro7()

    ActiveSheet.Unprotect Password:="test"
    Columns("A:Q").Select
    Selection.EntireColumn.Hidden = False
    Rows("11:22").Select
    Selection.EntireRow.Hidden = False
    Range("B11").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    Range("B12").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
   
    Sheets("Ønske oversigt").Select
    ActiveSheet.Unprotect Password:="test"
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect Password:="test"
   
    Sheets("Ønske anmodning").Select
    Range("B11").Select
    Selection.AutoFilter
    Columns("B:P").Select
    Selection.EntireColumn.Hidden = True
    Range("R12:U21,S3").Select
    Selection.ClearContents
    Rows("12:21").Select
    Selection.EntireRow.Hidden = True
    Range("S3").Select
    ActiveSheet.Protect Password:="test"
End Sub

Når jeg kører makroen stopper makroen ved

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Kan ikke helt gennemskue hvorfor den siger fejl.

Somebody can help?