Paste Method of Worksheet Class Fail Error

[Anaya Zeeshan]

I have written this code to cut rows from worksheet (shUpdated) based on column AB to another worksheet (ShCompleted). It is giving me this error "Paste method of worksheet class failed". here is the code:

Option Explicit

Sub Project_Completed()

Dim LastRow As Long
Dim Rng1 As Range
Dim cell As Range

LastRow = shUpdate.Range("AB" & Rows.Count).End(xlUp).Row
Set Rng1 = shUpdate.Range("AB3", shUpdate.Range("AB" & LastRow))

For Each cell In Rng1
If cell.Value = "Completed" Then
cell.EntireRow.Select
Selection.Delete Shift:=xlUp
ShCompleted.Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
shUpdate.Activate

' Sheets("Completed Projects").Select
' Range("A3").Select
' ActiveSheet.Paste

End If
Next cell
End Sub

 

[jolivanes]

At one point you say shUpdated (with a "d" at the end) and in the code it is shUpdate (without a "d")
If that is a sheet name, you have to call it with

Sheets("shUpdate").Range ........

If not, you have to qualify, something like

Dim shUpdate As Worksheet
Set shUpdate = Worksheets("SheetNameItRefersTo")

same for all other possible scenarios

 

[Anaya Zeeshan]

It was a typo error in my post. In the code I have used “ShUpdate”. The code works fine till activiating ShCompleted and select next available row and gives error on “Activesheet.paste”

 

[jolivanes]

"ShUpdate" with a capital S (Post #3) or as in your first post with a small s?
Are that sheet names?

 

[Anaya Zeeshan]

Yes they are same

 

[Georgiboy]

What are you pasting? I can't see that you have copied anything.

Are the sheets defined outside of the sub?
As pointed out by jolivanes, you would need something like the below to call the sheets in that way:

Dim ShCompleted As Worksheet
Set ShCompleted = Sheets("Completed Projects")

When deleting rows in a loop it is best to go bottom to top.

 

[Anaya Zeeshan]

What are you pasting? I can't see that you have copied anything.

Are the sheets defined outside of the sub?
As pointed out by jolivanes, you would need something like the below to call the sheets in that way:

Dim ShCompleted As Worksheet
Set ShCompleted = Sheets("Completed Projects")

When deleting rows in a loop it is best to go bottom to top.

You were right, I worte cut instead of copy which was giving the error.
Thanks alot