PasteSpecial method of Range class failed

[rmCalgary]

I have tried the suggestions in quite a few different threads to solve the problem that I am encountering. I am trying to copy a Range of cells in a column on one sheet and transpose paste them on another sheet.

Sub MoveWell(TCDesc, OnStream, WellCnt)
    Sheets(TCDesc).Select
    Range("B71:B799").Copy
    Sheets("Gas_Prod").Select
    Range("A18").Offset(WellCnt + 2, OnStream + 1).Select
    Selection.PasteSpecial Paste:=x1Values, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

 

[Norie]

Does this work?

Sub MoveWell(TCDesc, OnStream, WellCnt)
    Sheets(TCDesc).Range("B71:B799").Copy
    Sheets("Gas_Prod").Range("A18").Offset(WellCnt + 2, OnStream + 1).PasteSpecial Paste:=x1Values
End Sub

If it doesn't is 'Gas_Prod' protected? Also, what are the values of WellCnt and OnStream when the code fails?

 

[rmCalgary]

No that didn't work either.

No 'Gas_Prod' is not protected. An the values of Wellcnt = 1 and OnStream = 4 at time of the failure. but it does say x1Values = empty??

 

[Norie]

It should be xlValues not x1Values

 

[rmCalgary]

Thank you very much.