Run-time error '1004': Methor 'Range' of object '_Global' failed

[Joe Saunders]

Can anyone help with this error message in excel 2000?

Line is:

Sub Button81_Click()
Range("E1.1.1_Final").Copy
Range("E1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.1_Data").ClearContents

Range("E1.1.2_Final").Copy
Range("E1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1.1.2_Data").ClearContents

Range("F1.1.1_Final").Copy
Range("F1.1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.1_Data").ClearContents

Range("F1.1.2_Final").Copy
Range("F1.1.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.1.2_Data").ClearContents

Range("F1.2.1_Final").Copy
Range("F1.2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.1_Data").ClearContents

Range("F1.2.2_Final").Copy
Range("F1.2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.2_Data").ClearContents

Range("F1.2.3_Final").Copy
Range("F1.2.3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.3_Data").ClearContents

Range("F1.2.4_Final").Copy
Range("F1.2.4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1.2.4_Data").ClearContents

Range("G1.1_Final").Copy
Range("G1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G1.1_Data").ClearContents

Range("H1.1_Final").Copy
Range("H1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H1.1_Data").ClearContents

Range("I3_Final").Copy
Range("I3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I3_Data").ClearContents

Range("I5_Final").Copy
Range("I5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I5_Data").ClearContents

Range("J3_Final").Copy
Range("J3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3_Data").ClearContents

Range("J4_Final").Copy
Range("J4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J4_Data").ClearContents

Range("J5_Final").Copy
Range("J5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J5_Data").ClearContents

Range("J6_Final").Copy
Range("J6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J6_Data").ClearContents

Range("J7_Final").Copy
Range("J7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J7_Data").ClearContents

Range("J8_Final").Copy
Range("J8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J8_Data").ClearContents

Range("J9_Final").Copy
Range("J9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J9_Data").ClearContents

Range("K3_Final").Copy
Range("K3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K3_Data").ClearContents

Range("K5_Final").Copy
Range("K5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K5_Data").ClearContents

Range("K6_Final").Copy
Range("K6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6_Data").ClearContents

Range("L3_Final").Copy
Range("L3_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L3_Data").ClearContents

Range("L4_Final").Copy
Range("L4_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4_Data").ClearContents

Range("L5_Final").Copy
Range("L5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L5_Data").ClearContents

Range("L6_Final").Copy
Range("L6_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L6_Data").ClearContents

Range("L7_Final").Copy
Range("L7_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L7_Data").ClearContents

Range("L8_Final").Copy
Range("L8_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L8_Data").ClearContents

Range("L9_Final").Copy
Range("L9_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L9_Data").ClearContents

Range("L10_Final").Copy
Range("L10_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10_Data").ClearContents

Range("L11_Final").Copy
Range("L11_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L11_Data").ClearContents

Range("M1.1_Final").Copy
Range("M1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M1.1_Data").ClearContents

Range("O1.1_Final").Copy
Range("O1.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O1.1_Data").ClearContents

Range("P5_Final").Copy
Range("P5_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P5_Data").ClearContents

Range("Q2.1_Final").Copy
Range("Q2.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.1_Final").ClearContents

Range("Q2.2_Final").Copy
Range("Q2.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2.2_Final").ClearContents

Range("Q3.1_Final").Copy
Range("Q3.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.1_Final").ClearContents

Range("Q3.2_Final").Copy
Range("Q3.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q3.2_Final").ClearContents

Range("Q4.1_Final").Copy
Range("Q4.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.1_Final").ClearContents

Range("Q4.2_Final").Copy
Range("Q4.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q4.2_Final").ClearContents

Range("Q5.1_Final").Copy
Range("Q5.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.1_Final").ClearContents

Range("Q5.2_Final").Copy
Range("Q5.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q5.2_Final").ClearContents

Range("Q6.1_Final").Copy
Range("Q6.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.1_Final").ClearContents

Range("Q6.2_Final").Copy
Range("Q6.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q6.2_Final").ClearContents

Range("Q7.1_Final").Copy
Range("Q7.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.1_Final").ClearContents

Range("Q7.2_Final").Copy
Range("Q7.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7.2_Final").ClearContents

Range("Q8.1_Final").Copy
Range("Q8.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q8.1_Final").ClearContents

Range("Q8.2_Final").Copy
Range("Q8.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q8.2_Final").ClearContents

Range("Q9.1_Final").Copy
Range("Q9.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q9.1_Final").ClearContents

Range("Q9.2_Final").Copy
Range("Q9.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q9.2_Final").ClearContents

Range("Q10.1_Final").Copy
Range("Q10.1_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q10.1_Final").ClearContents

Range("Q10.2_Final").Copy
Range("Q10.2_Prioryr").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q10.2_Final").ClearContents


End Sub

Any help much appreciated as always.

 

[Joel]

Here is the fix for the 1st secion

Worksheets("E1.1.1_Final").Select
Cells.Select
Selection.Copy
Worksheets("E1.1.1_Prioryr").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("E1.1.1_Data").Select
Cells.ClearContents

 

[Joe Saunders]

Thanks, but I'm not quite sure what to do with that?

Silly me.

 

[Michael]

I believe the solution provided will not help because is assuming you are
trying to copy the whole worksheet, I think what you are doing is using named
ranges for which the size of the source data range and the destination data
range must have the same size or the destination must be a one cell reference
for example A1.
So go to the Insert toolbar menu
Insert ->Name -> Define
Check the Range being referenced by each of the names where you are pasting
the data and change them as necessary.

Regards,

Michael Arch.