Slet data - når Private Sub Worksheet_Change(ByVal Target As Range) benyttes

For at gør brugen af arket lettere ved indtastning af data, har jeg indsat en kode i selve arket der gør følgende:
- Markeringen springer automatisk en kolonne til højre efter indtast af data.
- I to af kolonnerne indsættes der automatisk et ord fra Range("D94") eller ("D102")

Koden i er arket:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("M5:M54"), Target) Is Nothing Then
    Target.Offset(0, 1).Activate
    End If
    If Not Intersect(Range("Q5:Q54"), Target) Is Nothing Then
    Target.Offset(0, 1).Activate
    End If
    If Not Intersect(Range("N5:N54"), Target) Is Nothing Then
    Target.Offset(0, 1).Value = Range("D94").Value
    End If
    If Not Intersect(Range("O5:O54"), Target) Is Nothing Then
    Target.Offset(0, 1).Value = Range("D102").Value
    End If
    If Not Intersect(Range("P5:P54"), Target) Is Nothing Then
    Target.Offset(0, 12).Value = "Ingen dato"
    End If

Det virket helt efter hensigten.
Men mit problem er, når jeg skal slette data i hele området.
Jeg bruger følgende kode til at slette data:

Public Sub Slet()
Range("M5:AM54").Select
Selection.ClearContents
End Sub

Der sker så det, at sletningen springer fra kolonne til kolonne, og der bliver indsat ord fra Range("D94") og D("102") flere forskellige steder, hvor der ellers nu skulle være tomme celler.

Kan man skrive koden: Private Sub Worksheet_Change(ByVal Target As Range)
på en anden måde, eller skrive en tilføjelse til koden, så det ikke sker.

Er der nogen der har et bud på det?

På forhånd tak
Laugesen