kopi af område

Jeg har nedenstående makro, men når jeg prøver at kører den, kommer der en fejl "400" og makroen stopper ved:
Sheets("database").Select

Er der en fejl i makroen ???


Sub kopi()
    Range("A1:P20").Select
    Selection.Copy
    Sheets("database").Select
    NN = Range("a65536").End(xlUp).Row + 1
    Range("A" & NN).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("skabalon").Select
    Application.CutCopyMode = False
    Range("A1").Select
   
    End Sub