Run-time error "1004" : Paste method of worksheet class failed

[tromo912]

Hello everyone.

I'm having an issue with my macro. The error message that pops up says run-time error "1004" paste method of worksheet class failed. Can anybody help me? I'm brand new to Excel and VBA so please try to explain as simply as possible. Thanks so much!

Here's the code:


Sub CondenseDATA()
'
' CondenseDATA Macro
'
' Keyboard Shortcut: Ctrl+q
'
ActiveCell.FormulaR1C1 = "Participant ID"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Condition"
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "IF-THEN Value"
ActiveCell.Offset(1, -2).Range("A1").Select
ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, -9).Range("A1:A17").Select
Selection.Copy
ActiveCell.Offset(0, 9).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "practice/practice"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "eating/negsocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "hunger/negsocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "satiation/negsocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "neutral/negsocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.FormulaR1C1 = "eating/possocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "hunger/possocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "satiation/possocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "neutral/possocial"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "eating/neutral"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "hunger/neutral"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "satiation/neutral"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "neutral/neutral"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "eating/non-word"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "hunger/non-word"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "satiation/non-word"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "neutral/non-word"
ActiveCell.Offset(-16, 1).Range("A1").Select
ActiveSheet.PasteSpecial
Application.CutCopyMode = False
Selection.Clear
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=AVERAGEIFS(R[-2]C[-5]:R[556]C[-5], R[-2]C[-9]:R[556]C[-9], ""hunger"", R[-2]C[-8]:R[556]C[-8], ""negsocial"")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=AVERAGEIFS(R[-3]C[-5]:R[555]C[-5], R[-3]C[-9]:R[555]C[-9], ""satiation"", R[-3]C[-8]:R[555]C[-8], ""negsocial"")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=AVERAGEIFS(R[-4]C[-5]:R[554]C[-5], R[-4]C[-9]:R[554]C[-9], ""neutral"", R[-4]C[-8]:R[554]C[-8], ""negsocial"")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
Selection.Clear
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-17, -2).Range("A1:C18").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(4, 3).Range("A1").Select
ActiveCell.Offset(0, -1).Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, -2).Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, -3).Columns("A:A").EntireColumn.EntireColumn.AutoFit
Sheets("106").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
End Sub

[Norie]

If you replace this,

Please Login or Register  to view this content.

with this,

Please Login or Register  to view this content.

does the code work?

PS Can you add code tags when posting code?