I have written the following in VB to copy and paste data
from one workbook to another:

ActiveSheet.Range("A6:A35").Select
Selection.Copy
Windows("Data_2004.xls").Activate
Sheets("My Data").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

For some reason everytime I run the Macro I get the
following error:

'Paste Special method of Range class failed'

Can anyone help with this problem??
Cheers
Chris