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.