Genopret slettet celle

Hej
I en projektmappes regneark er anbragt følgende kode der når en celle slettes i kolonne A efterfølgende sletter resten af rækken. Jeg har lagt en lille sikkerhed ind for ikke ved en fejl at slette en hel række - den fungerer udmærket pånær at selve den slettede celle ikke genoprettes efter man har svaret nej til at slette rækken. Kan dette lade sig gøre? Jeg har forsøgt med at lave en oldselection og genoprette den efter negationen men uden held:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Trange As Range
Dim c As Range
Set Trange = Range("A3: A1000")
'slå alle events fra da vi her henter nye data og den ellers vil køre igen.
Application.EnableEvents = False

On Error GoTo Slut

'check om den indtastede celle er i Trange
If Not Intersect(Target, Trange) Is Nothing Then
  'Hvis cellen ikke er tom (blevet slettet)
 
  If Len(Target.Value) = 0 Then
      'Target.EntireRow.ClearContents
        Dim Msg, Style, Title, Ctxt, Response, MyString
        Msg = "Ønsker du at slette rækken?"    ' Define message.
        Style = vbYesNo + vbDefaultButton2    ' Define buttons.
        Title = "Meddelelsesbox"    ' Define title.
        Response = MsgBox(Msg, Style, Title)
            If Response = vbYes Then
                Target.Offset(0, 1).ClearContents
                Target.Offset(0, 2).ClearContents
                Target.Offset(0, 3).ClearContents
                Target.Offset(0, 4).ClearContents
                Target.Offset(0, 5).ClearContents
                Target.Offset(0, 6).ClearContents
                Target.Offset(0, 7).ClearContents
            End If
           
  End If

End If
Application.EnableEvents = True
Exit Sub

'slå events til igen
Slut:
Application.EnableEvents = True
MsgBox ("Fejl fundet")
End Sub

vh Steen