Makro-Fehlerm,eldung

Sub archiviere()
Application.ScreenUpdating = False
ActiveCell.Select
If ActiveCell = "" Then GoTo Fehler
If ActiveCell.Font.Bold = True Then Wert1 = MsgBox("Möchten Sie wirklich dieses Thema als  _
erledigt ablegen?", 1, "Rückfrage") Else GoTo Fehler
If Wert1 = 2 Then UserForm2.Hide
If Wert1 = 2 Then Exit Sub
ActiveCell.EntireRow.Select
Selection.Cut
Rows("800:800").Select
Selection.Insert Shift:=xlDown
Rows("799:799").Select
Selection.Cut
Sheets("erledigt").Select
Range("A5:J5").Select
Selection.Insert Shift:=xlDown
Range("L2").Select
Sheets("Deckblatt").Select
UserForm2.Hide
Application.ScreenUpdating = True
Exit Sub
Fehler:
MsgBox "Sie müssen auf die Vorgang-Nummer clicken!", 64, "Archivierung abgeschlossener  _
Themen"
UserForm2.Hide
Exit Sub
End Sub

Beim zweiten "" Selection.Insert Shift:=xlDown"" bleibt es allerdings stehen und ich bekomme die Meldung:
"Automatisierungsfehler.
Das aufgerufene Objekt wurde von den Clients getrennt."
wer kann mir hier Beistand leisten?
Bitte um Nachsicht wenn nicht alles so perfekt ist,habe wenig Ahnung von VBA.
Gruss Werner