Method 'Paste' of object '_Worksheet' failed

[markline]

I keep getting a method paste of object _Worksheet failed error on m
ActiveSheet.Paste command in the code below:

Public Sub CopyRows()
Sheets("Sheet2").Select
' Find the last row of data
FinalRow = Range("A65536").End(xlUp).Row
' Loop through each row
For x = 34 To FinalRow
' Decide if to copy based on column A
ThisValue = Range("A" & x).Value
If ThisValue > 0 Then
Range("A" & x & ",B" & x).Copy

Sheets("Sheet3").Select
NextRow = Range("B65536").End(xlUp).Row + 1
Range("B" & NextRow).Select
ActiveSheet.Paste


Sheets("Sheet2").Select
End If
Next x
End Sub

Can anyone help

 

[mangesh_yadav]

Use ActiveSheet.PasteSpecial

Manges

 

[markline]

Use ActiveSheet.PasteSpecial

Mangesh

I get the same error, but now it's method pastespecial

 

[mangesh_yadav]

I had not tried your earlier code, but now after trying it, I find that
it is working fine without any errors. (i.e. by using .Paste)

Can you tell which line is higlighted when you get the error.

Mangesh

 

[markline]

I had not tried your earlier code, but now after trying it, I find that
it is working fine without any errors. (i.e. by using .Paste)

Can you tell which line is higlighted when you get the error.

Mangesh

ActiveSheet.Paste is where I'm getting the error

When I do it in a cleen workbook, I don't get any errors either - it's
only happening in the workbook where all of my data is

I'm starting to think the workbook is somehow corrupted, but I don't
really know what to look for to fix it

 

[mangesh_yadav]

What is the kind of data you have in this particular sheet. Is this th
only code that you have. And do you have "Sheet3" in your workbook
After the error, which is the sheet that is displayed. Is i
Sheet3...?

Manges

 

[markline]

What is the kind of data you have in this particular sheet. Is this the
only code that you have. And do you have "Sheet3" in your workbook.
After the error, which is the sheet that is displayed. Is it
Sheet3...?

Mangesh

The data is nothing special, some general data, some text, some numbers
- but it has been copied between various workbooks a few times before it
wound up in my hands (which leads me to believe the data could be
corrupted)

Yes there is a Sheet3, it successfully pastes into the first cell
before it errors. I also checked the clipboard, and it successfully
copies all of the data out of Sheet2

 

[mangesh_yadav]

What is the number of rows that you need to copy. Also it could be
possible that you are going out of the sheet range and thats where it
is failing to paste. Maybe you could send me your worksheet and I'll
have a look at it. send it to (e-mail address removed)
Don't forget to remove the text remove this from the email id.

Mangesh