VBA - Objektet er frakoblet dets klienter

Når jeg eksekvere min kode (se koden nederst) første gang, gør den præcis som tiltænkt og det bliver den ved med - lige indtil jeg sletter de forekomster der er sat ind ved hjælp af koden. Så modtager jeg følgende fejlmeddelelse:

Fejl:

System Error &H80010108 (-2147417848).  Objektet er frakoblet dets klienter.

Jeg har programmeret i Excel VBA i mange år, og aldrig stødt på den slags fejl. Og skulle mene det er relativt simpel kode der ikke burde resultere i fejl.

Er der en venlig sjæl der kan hjælpe mig?

Kode:

Sub B2_IndsætLinje()
' * Indsæt en ny linje

' ** Gå til "Dato" i arket "B2"

Application.Goto Reference:="B2!Dato"

' ** Kopier rækkens format

ActiveCell.Offset(2).EntireRow.Copy

' ** Indsæt en række

ActiveCell.Offset(2).EntireRow.Insert
ActiveCell.Offset(2).EntireRow.PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False

End Sub