Another intermittent "The object invoked has dsconnected from its clients" question

[Mark_Donald]

I've had a look, and although there are similar threads, I haven't found a solution yet that works. It runs fine for 20+ times, then I get the error and it freezes the spreadsheet. Code is below, it fails at the Selection.Insert line. Code is being ran from a button on the same sheet.

Sub InsertOPEXCat1Row()

Dim OPEXCat1 As Range

Set OPEXCat1 = Range("OPEXCat1")

OPEXCat1.End(xlDown).EntireRow.Select
Selection.Copy
Selection.Insert shift:=xlDown
Application.CutCopyMode = False


Any help welcome - so frustrating! Thanks in advance


End Sub