VBA to paste special not working

[grapevine]

I have a piece of vba code which is copying and pasting to another sheet. the copy and paste is working as I have tested to make sure by overtyping the formula with text to check.

If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, -4).Copy Destination:=Workbooks(FSN & "." & "HDR").Worksheets(2).Range("b11")

My problem is I cannot get this to do a paste special. I have tried adding the two alternatives below to the end of the script based on advice that I have found on the Internet but I keep getting the following error: compile error expected end of statement

Range("b11").PasteSpecial Paste:=xlPasteValues
Range("b11").PasteSpecial PasteValues

Can anyone help me out please?
Kind regards

 

[Norie]

Remove Destination:=, move the code after that to a new line and add .PasteSpecial xlPasteValues.

ActiveCell.Offset(1, -4).Copy

Workbooks(FSN & "." & "HDR").Worksheets(2).Range("B11").PasteSpecial xlPasteValues

 

[grapevine]

Thank you for your very quick reply, but I am now getting a different error

Runtime Error 1004 Pastespecial Method of Range Class Failed

Any clues???

Kind regards

 

[grapevine]

Alert over - I think I caused a glitch as I was running and adapting the code in break mode. I closed everything down - re ran the macro and all it working perfectly.

Thank you very much - a very simple solution.
Kind regards