Problem med celle/område reference

Jeg har et navngivet område D42:D100 'navne' hvor der kan tilføjes eller slettes navne via formular-knapper i arket.
Derudover har jeg en datavaliderings liste, som henter navn fra dette område.
Samt 2 LOPSLAG's celler som henter adresse m.v. relateret til navnet.

Problemet er at når jeg sletter et navn, så ændres områdereferencen i såvel LOPSLAGET som i navne-definitionen. (bliver mindre)

her er subben :

Sub KnapSlet_Klik()
Application.ScreenUpdating = False
Dim c As Range
Range("E11").Select
    For Each c In Range("D42:D100")
    If c.Value = Range("E11").Text Then
    c.Cells.Select
    Selection.Resize(, 4).Select
    Selection.Delete 'Shift:=xlUp
    End If
    Next
Range("E11").Value = ""
Application.ScreenUpdating = True

End Sub

Hvem har et bud på dette problem ?