Hi,

I'm getting the following error with the code shown below: PasteSpecial method of Worksheet class failed

I am getting error on the last line of the code 
ActiveSheet.PasteSpecial xlPasteValues
Was wondering whether anyone could help? Seems a simple fix and will help me with vba in the future

Worksheets("Accuracy Summary").Range("BP8:Bp56").Copy
Worksheets("Archive").Activate
Range("B3").Select
Selection.End(xlToRight).Select
 ActiveCell.Offset(0, 1).Select
 ActiveSheet.PasteSpecial xlPasteValues
Thank you