Error 1004: Copy method of Range class failed

[Hazman_08]

Have put the following code into sheets. Worked the first time, now getting Copy method error.

Sheet6:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 And Not Intersect(Range("D19:I22"), Target) Is Nothing Then
On Error GoTo Escape
Application.EnableEvents = False
Target.Copy Sheet7.Range(Target.Address).Offset(-14, 1) '<-- *** Sheet code name used ***
End If
Continue:
Application.EnableEvents = True
Exit Sub
Escape:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Continue
End Sub

Sheet 7:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 And Not Intersect(Range("E5:J8"), Target) Is Nothing Then
On Error GoTo Escape
Application.EnableEvents = False
Target.Copy Sheet6.Range(Target.Address).Offset(14, -1) '<-- *** Sheet code name used ***
End If
Continue:
Application.EnableEvents = True
Exit Sub
Escape:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Continue
End Sub

 

[footoo]

For sheet 6, the Target must not be in rows 1 to 14.

 

[Alex Blakenburg]

I can't get your code to generate that error. You might need to share your workbook via one of the file sharing platforms.
Do you have anything unusual in the 2 ranges that you are targetting ?
I have tried merging cells and protecting the sheet and while they produce the 1004 error they have a disctinctive message with it.